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ABSTRACT 


y 

The  case  of  wave  propagation  in  a  thick-walled  elastic 
cylindrical  shell  subject  to  dynamically  applied  internal  pressure 
is  examined  for  various  shell  geometries  and  modes  of  application 
of  the  internal  loading.  Shells  of  both  infinite  as  well  as  semi¬ 
infinite  length  are  treated.  In  both  cases  the  loading  is 
considered  to  be  axisymmetric.  The  investigation  culminates  in 
the  determination  of  dynamic  behavior  of  the  thick  shell  subject 
to  a  band  of  constant  intensity  pressure  moving  at  constant  velocity 
along  the  inner  surface  of  the  shell.  Displacement  and  strain 
components  at  any  point  in  the  shell  may  be  evaluated  In  terms  of 
dimensionless  variables  from  the  computer  program  presented. 
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***»*i«nt  aotion  in  no lid*  hu  boon  of  interest  principally  in 
Mechanical,  Mining,  and  geophysical  engine* ring.  in  recent  years, 
however ,  stress  wave  propagation  problems  are  becoeiing  increasingly 
important  in  aeronautical  and  nuclear  engineering  in  probleMS 
associated  with  structures  under  impulsive  loading,  in  the  current 
study  a  thick  cylindrical  shell  subjected  to  ispulsive  loads  epplled 
at  the  Interior  is  considered  by  the  application  of  the  Method  of 
characteristics . 

It  is  known  that  when  an  elastic  body  is  disturbed  by  a  load 
which  is  abruptly  or  gradually  applied  on  a  portion  of  it,  elastic 
waves  propagate  through  the  body  with  two  different  velocities  which 
depend  upon  elastic  properties.  waves  involving  dilatation  (or 
voluninal  change)  are  usually  called  dilatation  or  longitudinal  waves 
and  those  involving  rotation  (or  no  voluminal  change)  are  called 
transverse  or  shear  waves. 

In  such  a  boundary  value  problea  as  considered  in  this  study 
nonplanar  elastic  waves,  like  spherically  and  cyliodrically  expanding 
waves,  are  propagating  through  the  aedlun.  These  nonplanar  waves,  in 
contrast  to  plane  waves.  Change  the  shape  of  the  wave  front  as  they 
propagate,  thus  varying  the  distribution  of  stresses  and  velocities 
of  the  disturbed  particle  in  the  elastic  body. 
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various  kinds  of  wavs  propagation  problems  which  oaa  bo 
roprosontod  in  tons  of  a  sot  of  partial  differential  equations  have 
been  studied  previously  using  different  approaches  such  as  the 
integral  transfon  method,  the  finite  element  method,  and  the  method 
of  characteristics  which  is  relevant  to  this  study.  When  the  theory 
of  characteristics  is  applied  to  elastic  wave  propagation  problems  it 
involves  the  solution  of  a  system  of  first-order  partial  differential 
equations  which  governs  the  deformation  in  the  dynamic  field.  Zt  is 
more  advantageous  to  apply  the  method  of  characteristics  rather  than 
the  integral  transfon  method  to  solve  complex  boundary  value 
problems,  since  those  first-order  partial  differential  equations 
involve  stresses  and  particles  as  dependent  variables. 

Zn  solving  a  problem  expressed  in  tens  of  a  system  of  partial 
differential  equations  which  involves  more  than  two  independent 
variables  certain  integral  or  solution  surfaces  may  exist  in  the 
solution  space.  The  integral  surfaces  consist  of  what  are  called  the 
characteristics  (or  the  characteristic  curves  or  waves),  and  the 
relations  governing  the  dependent  variables  along  these 
characteristics  will  be  called  characteristic  equations. 

Zf  only  discontinuities  in  the  first  partial  derivatives  of 
continuous  dependent  variables  on  the  wave  fronts  are  assumed,  the 
characteristic  equations  can  be  derived  by  the  employment  ■  of 
Badamard's  klnematlcal  discontinuity  relations! 194* )( so  called  "weak" 
discontinuity  relations).  Zn  their  work  on  cylindrical  and  spherical 
wave  propagation  by  the  aethod  of  characteristics!*],  Chou  and  Xoenig 
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determined  the  dietrihution  o£  stresses  behind  the  wave  fronts  of  the 
one-dimensional  case  where  the  load  is  abruptly  applied.  Sfcelr 
computational  procedure  is  that  they  first  derive  the  characteristic 
equations  compatible  along  the  leading  wave  front  by  the  employment 
of  the  weak  discontinuity  relations  and  then  evaluate  the  solution 
domain  behind  the  wave  front  by  numerical  stepwise  integration  of  the 
characteristic  equations.  Their  method,  however,  is  restricted  to 
one  dimensional  problems. 

Badamard's  work  was  successfully  extended  by  T.Y.  Thomas[2]  to 
kinematical  discontinuity  relations  across  a  .wave  front  where  the 
dependent  variables  themselves  are  discontinuous  (so  called  "strong" 
discontinuity  relations).  subsquently  these  strong  discontinuity 
relations  provided  the  capability  for  solving  impulsive  loading 
problems  of  two-dimensional  cases  by  the  method  of  characteristics . 
Recently  in  a  series  of  his  works[3][4][5][6],  X.  Ziv  successfully 
applied  the  theory  of  characteristics  to  two-dimensional  wave 
propagation  problems  there  the  load  is  applied  abruptly  to  the 

i  ■■ 

boundary.  In  this  case  the  discontinuity  of  the  dependent  variables 

|  I  will  occur  on  the  wave  front.  A  computational  method  with  a  computer 

|  code  was  presented  in  his  work[6]  for  the  transient  motion  of  a 

i ; 

half-space  subject  to  an  impulsive  load  applied  radially  and 
uniformly  at  the  boundary  of  a  cylindrical  cavity,  and  his  work  is 
extended  in  the  present  study  to  the  case  of  stress  propagation  in  a 
thick  cylindrical  shell  due  to  internal  axisysswtric  impulsive 
loading. 

I  i 


Am  computational  procoduza  for  solving  an  impulsive  loading 
problem  of  tho  two-dimensional  caso  by  tbo  aathod  of  caractaristica 


can  ba  roughly  divided  into  three  stages  as  follows « 

1.  Characteristic  formulation 

Combining  Newton's  laws  of  motion  with  the  elastic  relations 
obtained  from  Hooke's  law  gives  us  a  system  of  first-order 
partial  differential  equations  involving  the  variables  of 
stresses  and  particle  velocities,  and  after  certain 
mathematical  procedures  involving  the  application  of  weak 
discontinuity  relations  we  obtain  a  system  of  characteristic 
equations  along  the  characteristics. 

2.  Application  at  strong  Discontinuity  rtlatloM 

strong  discontinuity  relations  are  superimposed  on  the 
characteristic  equations  obtained  in  the  previous  stage. 
Than,  we  can  compute  the  decay  of  the  stresses  along  the 
wave  front. 

s,  iiflHuclfial—XntasucatiAD 

Am  solution  domain  behind  the  wave  front  is  divided  into  a 
grid  system  by  the  characteristics  along  which  the 
characteristic  equations  expressed  in  finite  difference  form 
will  be  integrated  in  a  stepwise  manner. 
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An  incident  longitudinal  wav*  g*n*rat*d  by  an  abruptly  applied 
load  will  Manat*  froa  th*  inner  surface  of  th*  tub*  through  th* 
medium  and  after  sosm  tie*  * lapse*  it  strike*  the  outer  free  eurfaee. 
Thus  w*  Bust  consider  a  reflection  of  waves  froa  the  outer  free 
surface  as  well  as  froa  th*  free  top  surface  (of  all  four  cases  to  be 
considered  only  in  CASE  1  does  a  free  top  surface  exists).  Sinoe  all 
action  is  linear  elastic  w*  can  apply  th*  principle  of  superposition 
to  the  interacted  region  of  incident  and  reflected  waves. 

If  an  incident  longitudinal  wav*  strikes  a  free  surface 
normally,  it  is  totally  reflected  with  a  180°  change  in  phase,  naaely 
a  compression  wave  will  be  reflected  as  a  tensile  wave  and  vice 
versa.  it  should  he  noted  her*  that  near  a  free  surface  where  an 
incident  coapression  wav*  was  reflected  and  transformed  into  a 
tensile  wave  spectacular  fracture  caused  by  so  called 
"spalling" [7 ](p203)  may  occur.  Spalling  occurs  when  a  high  intensity 
coapressiv*  wav*  reflects  at  a  free  surface  and  will  play  a  main  role 
in  fracture  of  structures  such  as  thick  cylindrical  concrete  shells 
under  impulsive  loading.  Furthermore  it  is  a  fact  that  after 
reflection  at  th*  outer  free  surface  incident  spherical  and 
cylindrical  waves  change  the  nature  of  divergent  waves  into  that  of 
convergent  waves,  namely  the  intensity  of  th*  reflected  tensile  wave 
will  increase  as  it  propagates  towards  th*  inner  surface.  Therefore 
it  is  likely  that  spalling  might  occur  not  only  near  the  outer  free 
surface  but  also  in  th*  region  far  from  th*  reflected  surface. 


Before  presenting  the  characteristic  formulation  the  boundary 
value  problems  to  be  considered  are  discussed  here  in  detail.  Two 
basic  structures  are  shown  in  Figure  l  and  Figure  2  while  we  consider 
four  cases  of  loading  and  geometry  as  follows i 

1.  CASE  1 

a  seed-inf initely  long  thick  cylindrical  shell  subjected  to 
a  uniformly  and  radially  applied  iapulsive  load  on  the 
entire  inner  surface  of  the  shell. 

2.  CASE  2 

An  infinitely  long  thick  cylindrical  shell  subjected  to  a 
uniformly  and  radially  applied  impulsive  load  along  the 
semi-infinite  length  of  the  interior  (from  *-0  to  a— too). 

3.  CASE  3 

The  seam  shell  as  CASE  2  subjected  to  a  uniformly  and 
radially  applied  impulsive  load  along  the  finite  length  of 
the  interior  (from  r— a  to  s-+a). 

4.  CASE  4 

The  same  shell  with  the  same  intial  conditions  as  CASE  3, 
however,  the  load  of  finite  length  is  travelling  with  a 
constant  speed  in  the  direction  of  the  Z-axis. 
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Loading  in  CMI  l  and  on  2  la  ariay— atrlc  and  la  given  in 
tana  of  a  atop  radial-etreae  input  which  la  an  abruptly  applied 
pamanant  eonatant  load.  *■  alao  will  conaldar  tha  eaaa  of  a 
rectangular  Input  which  la  equivalent  to  a  eaae  involving  a 
and  unloading  proceaa.  The  rectangular  input  eaae  which  ia  ceecntlal 
to  calculate  the  travelling-load  eaae  (CASE  4)  can  be  evaluated  by 
■ean a  of  the  auperpoaition  of  two  etep-input  caaea. 


TIM  basic  dynamic  field  aquations  governing  tbs  deformation  In 


the  solid  steal  fs 


combining  the  equations  of  notion  with  the 


equations  of  the  stress-strain  relationships .  The  equations  of 


notion  for  linear  elastic.  Isotropic, 


cylindrical  coordinates  are  written  aai 
a«r_  acr_  ,  a<j 

at  r  ^  at 

and  the  equations  of  the  stress-strain  relationships  after 
differentiation  with  respect  to  tine  are  given  ast 


Kr_  ’“r  ». 

90  »U_  U_  *L 

l?-<*+a^+*<T+3F> 
ao-aft  u  3U.  m. 

2a  JVV 

It  +‘5*)* 


These  symbols  are  defined  in  the 


inclatuxe  for  the 


in  Figure  1  and  Figure  a. 


•"a*,  *  '  **’ 


The  derivation  of  the  characteristic  aquations  from  the  above 
dynamic  field  equations  was  presented  in  detail  bp  Civ  in 

references[3][S].  fhe  general  orthogonal  s chase  for  the 

Characteristic  formulation!*],  however,  is  repeated  here  for 

convenience . 

When  stress  waves  propagate  in  the  r,z,t  space,  they  form  oooes 
as  shown  in  Figure  3  and  the  cones  consist  of,  or  are  characterised 
by,  the  infinite  nusber  of  the  Characteristics  Whose  origin  is  the 
apex  of  the  cone.  Zn  our  scheme,  however,  we  consider  only  four 
Characteristic  curves  which  are  formed  by  the  intersection  of  the 
surface  of  the  cone  with  two  planes  passing  through  the  t-axis. 
Chose  planes  intersect  orthogonally  with  each  other  at  the  t-axia  and 
each  plane  has  two  Intersection  lines  with  the  cone  to  form  two 
characteristic  curves  (or  lines).  We  define  these  orthogonal 
characteristic  curves  as  bicharacteristic  curves  or  the 

bicharacteristics . 

The  Characteristic  equations  governing  the  variation  of  stresses 
and  particle  velocities  along  the  bicharacteristic  curves  arezeduoed 
by  the  orthogonal  scheme,  in  which  the  bichar acterlstlc  curves  are 
separated  by  90°  from  each  other.  These  Characteristic  equations 
along  the  integration  paths  shown  in  Figure  «  are  written  as  follows 
according  to  reference!*]  i 
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au  u  da  a-a-or 

*rr-*L^r  a£ +T>^^-  JVS»dt 

for  tho  bicharactorlatie  curvo  (or«i(ns"0)  *-0°  Along  H"0' 

W.  U,  ao_ 

for  tho  bicharactorlatie  curvo  (n^— l.r^-o)  «-0°  along  ^—O^,  ^|-0, 


«U  do-  9 

d<rra-pG^aB-{M  ^  -«s(  -s-  -5-)  )dt 
for  tho  bicharactorlatie  curvo  (n^l.n^-O)  *-0°  along  ||-Og, 

9U  99  9 

for  tho  bicharactorlatie  curvo  (i^— l.n^-O)  #-o°  along 
80  U  9«L-  O 

daa*“p0Ld0*"  * A  *  aF +  "r  )“°t/  ~5p+  r  > ) dt 
for  tho  bicharactorlatie  curvo  (ny-O.n^-l)  0-90°  along  ^-0, 


»U  U  99  9 

doM+paLdog-(x(-§/+  ¥)+oi<-5p+  -=>}* 

for  tho  bicharactorlatie  curvo  (n^-O.n^— 1)  t-90°  along  0^, 


3U. 


"V  Sr 


39  OaA«9 

rr  00  rr 


»«t 


for  tho  bicharactorlatie  curvo  (n  -0,n  -l)  #-*0°  along  jx-0,  $5-0  , 

r  a  at  at  s 


3U.  do-  0-Q--O- 


for  tho  bicharactorlatie  curvo  ( j^-o , n# 


W  IL 

*rrr"{(A+2,l)l#+A<  r  +  3T))dt 
90  U  ®0 

da„-((A+2M)  ^+A(-|+  g/))dt 
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au  au 

d<rr*-,,<aF+"a«>dt 

Ur  *J  ws 
as 

?(1F+1j - “ 


1 

dU  ■— ( — — 
ua  p'  ar 


ac  o’ 

i .  **.  r* 

-+-J5-+— )dt. 


)!dt 

)dt 


Tha  last  six  aquations  ara  for  tha  static  Una  dr-dx-O.  Tbasa 

aquations  apparantly  fora  a  systaa  of  fourtaan  siaultanaoua  aquations 

^  =% 

u».  Mmo  »«K~M  Vj„%'  <W  w  •  *  ’  *  * 

yt  _ r  x  s  z 

as  *  °r*  ar »  "5s  *  ar  *  as  • 

For  convanianca,  diaansionlass  variables  ara  now  introducad  as 
follows I 


-  Ur 

°rr 

5rr“*5T‘ 

n  ■  -i. 

r  Ql 

»  Gj, 

Oflfl 

■e  w 

°©9“ 

G^t 

T“  TT* 

a  a** 

as*“ 

0L_ 

fi  t* 

r*  UJm4 

'■f 

1#t  mm*ks  •** 

Rewriting  tha  fourtaan  charactaristic  aquations  in  terns  of  tha 
dinansionlass  ▼ariahlas  aftar  tha  bars  haws  baan  raawvad 


~r r  r  8s  r  n  as 


along  dr-dr 


>* 


•long  dr— dt, 


ag  99  9 

ao-  -Mg 

rs  p'*  as  15  r^®* 

along  dr- Mr, 


V^S'T'Tl* 

along  dr— Mt, 

*«L  Ur  ®-_ 

^ss”40*"***  air  +‘r*“  ar,'“"^^4, 

along  ds-dt, 

•U  u  aa__  o 
^♦3r-2*-S)4, 


ss 

along  ds— d? 


)«t 


along  ds-Mr. 


A  "rr  y-n 


along  4s— Mt, 


*°r  Ur  w« 
dorr"{T5F+*<  r  + 


aXoqq 


along 


W,  «_  *L 

*ass"<  Is  ♦!#»«* 


U) 

(«> 

c»> 

<♦> 

<•> 

<•) 

<*> 

(•) 

(•> 

(10) 
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along  dr-dx-o, 

“r  *°r  ,u. 
along  dr-dx-O, 


(12) 


.  rr  ,  r»  w86^ rr_ 
- — 


along  dr-dx-O, 


<s°2“(  ar  +  ss  r  ><St 


(12) 


(l*) 


along  dr-dx-O. 


Zn  ordor  to  invastigata  tho  bahavior  of  tha  shall  at  a 
polnt(r,s,T)  by  tho  flnlta  dlfforonco  tochniquo  thoso  Characteristic 
aquations  ora  oxprossod  in  tha  finita  diffaranca  form,  batting  f  ba 
any  variable  of  tha  aquation,  df  can  ba  written  as  df-f-f^  where  f ^ 
denot »s  tha  known  variable  at  tha  point  i  and  f  danotas  tha  unknown 
variable  at  tha  point(r,s,t ).  Xf  wa  taka  tha  first  charactaristlc 
aquation  along  dr-dt  wa  obtain  two  aquations  as  follows ■ 

9U  U_  a-g-a 

°-rr’ffrrr0r+Ur»-<-<  W+T>“^+ 

*rr-<WV  V<a<Wi*f^+  "V^-V 


After  adding  thasa  two  aquations,  dividing  by  2  ,  and  gathsrlag  tha 
unknown  tarns  on  tha  laft  hand  a Ida  wa  finally  com  up  with 


B,  B,  B.  B.3U 

<  1+S)0,rr-<  l+#fr>V5VT  *  +  J~STm 


l 
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where 


VC0rr<x"S>-°r{1-S>+(a 

■l“r-Tl- 


at  a*  +  r  '  2  1 


r 


XdkmiM  the  Characteristic  equations  (2)  through  (i*> 
transformed  and  written  in  accordance  with  reference^] : 


an 
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vhara 


5  B  ®qo  3 

«-*■?>  i'l 


h-torr'  ‘'5»,'  l*5>*<*  if-K 


*°r*  °qq  b 


B. 


V(<Tr.(1-S>’,w.+«^ 


3U  99  „ 

r_*a.  B 


as  >f>3 


a  au_  *>„  * 

V*W1+2f  )+*V**  a/+ir 5 1  >4 

v(ff»-v(,,<w*“i 1 1  >3 
V‘S.*V<*<T!F*^5r*Tr>  1  >6 
V<<rr.-Wr»»»  h 

3U.  dv  e—-®  tj 

3F-5T  — r'  I  >6 

aU_  U  3U.  B 
W1  «♦«?**»  I  >9 


3U, 


U_  SU 


*io-(<’«.*'S*“<T*»r>1!1io 

,  3U«  3U,  B 

Air{0r.+<‘<lF  +  ai)l,ll 
0  au  3U  T. 

Ai2-‘ffee+{r+°<^+3?»i>i2 

VVr-fV'l'is 


«»4  *2"t”7?'  >3-,_,3'  ®4"t_t4'  *5m*“7y  *6"t_,6'  *7*t"’T7' 

»g“T-Tg<  B9»t-tq.  Tha  aubacripta  l  through  9  danota  tha  points  whara 

tha  quantitiaa  ara  alraady  known. 


At  this  stags  ths  applicability  of  tha  abovo  characteristic 


aquations  is  confined  to  tha  casa  Whsrs  tha  dependent  variablas  cr^, 

a  .a-  .  u  .  and  o„  ara  continuous  while  thair  first  partial 
derivatives  aay  ba  discontinuous  across  tha  wave  front.  Xn  tha 
prasant  boundary  value  problans,  hows vs r,  tha  load  is  abruptly 
appliad  at  tha  boundary.  Therefore  diacontinuitias  in  tha  dapsndsnt 
variablas  thsssslvss  axist  across  tha  bichar actaristic  curvas. 
Furthermore  tha  diacontinuitias  nay  occur  not  only  dua  to  tha 
impulsive  load  but  also  dua  to  tha  raflactions  from  tha  boundarias . 
This  «sans  that  strong  discontinuitias  anist  ba  considarad  for  tha 
raflactad  ragion  avan  if  tha  load  is  appliad  gradually.  Xn  tha  naxt 
ssction  tha  strong  discontinuity  ralations  will  ba  appliad  to  tha 
characteristic  aquations  to  ba  coopatible  with  tha  strong  notion  of 
tha  prasant  boundary  valus  problans. 

Strang  CiacpntinuitY  Ba latiaoa 

Xf  strong  discontinuitias  which  naan  tha  discontinuitias  in  tha 
dapandant  variablas  thansalvas  axist  along  tha  bichar actaristlc 
curvas,  strong  discontinuity  ralations  must  ba  imposed  on  tha 
charactaristic  aquations  along  tha  discontinuitias .  Obsarving  tha 
characteristic  aquations  <1)  through  (14)  it  is  saan  that  avary 
aquation  spparantly  involves  partial  darivativas  of  tha  dapandant 
variablas  which  ara  not  differentiable  along  tha  bicharacteristic 
curvas  carrying  discontinuities. 
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**ow  *•  M|**  that  all  characteristic  aquation*  except  th* 
static  aquation*  (»)  through  (14)  would  b*  along  tha  bichar actariatic 
curse*  which  ara  carrying  discontinuities.  Accordingly  in  order  to 
superimpose  strong  discontinuity  relations  th*  characteristic 
equations  (l)  (9)  should  be  first  rewitten  using  th*  well  known 
bracket  notation  as  follows) 


<,I<rr,_dt°rJ"{0(  (o 

along  dr-dt , 


CU J 


tcee1- 


to-] 

—EE  )  dr 


d^rrJ+dtV-{«<t°„*J+I4J  ISsL2gl}dt 

along  dr— dr , 

J-C— 3  )dr 

rz  *  r ;z  zz;z  r 

Along  dr-frdt. 


at<rrI]tW[ol)-«9tor.,]*tol!5.I)+l^5’)at 

along  dr—  pdr, 

<StaM]-dtOz]-(a([Or.r]+^.)-[Przjr)-  -|*  )d? 
along  dz-dt, 


«Io-t#34dCO,l-(e(tOr|r]4liVl<rrB|rJ+l&,)«t 

along  ds— dr. 


<*taM)-WI0r]-9(9(DZjr]-[crr}r)+t!§eL!^,>dr 

along  ds-0dr, 

along  ds—  gdt, 


U*) 


(2*) 


(3a) 


(9*) 


(5a) 


(«*) 


<7a) 


<■*> 


it 


where 


The  value  of  f 
at  the  rear  of 
tha  wave  front 


f 


Tha  value  of  f 
at  tha  front  of 
tha  wave  front 


i  -  Partial  differentiation. 


The  strong  discontinuity  relations  to  the  relevant  case  are 
derived  by  Ziv  by  aeans  of  the  kinematical  compatibility  relations 
given  in  referenced]  by  Thomas.  Those  strong  discontinuity 
relations  are  presented  in  referenced]  u  follows: 


^0s!z^la"^03i^2a“  r 

US) 

,  .“rrr'-wi*> 

1  rz;zJla  1  rzjzJ2a  r 

(16) 

IU„1 

IDr;z]3a“IOrjz34a  "t* 

(17) 

[a  ]„  -[a  ]  -2ifb] 

zz;zJ3a  zz;zJ4a  r 

(16) 

tU  ) 

1  rirJ5a  a** 

(19) 

[a__]-tc_] 
trr  1  .  zz  rr 

rz;r  5a  R*z 

(20) 

C°rjrJ6a“torz»rI6a"° 

(21) 

to  ] 

1  *irJ7a  a*c 

(22) 

r  ,  2t<7„] 

^rrjr  7a”  “r^F 

(23) 

C  °z  ;r  58a  ”Corr  i  r 5  6a"a' 

(24) 
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where  the  subscripts  rsfsr  to  ths  corrsspondlng  characteristic 
equations . 

Substituting  those  relations  (IS)  (24)  into  the  corresponding 
equations  (la)  ( ta)  gives  us 


dCCrr)-dtOr]-{2a[ur]-2(o-rr]+[a69]+[c22))|r 

(lb) 

d«rir)4d(0r].{2e[0r]+2(air]-[ced)-[azz])| 

(2b) 

aiffri]-Wtozi— wstoz]+3tffrt3)j 

(3b) 

d[ orzl+Sd(oz ]-« -«oz]+3 [<rn)  )^ 

(«>) 

10.1  IUJ  [ffj-icj  to  1 
!*♦  -i  >-  -  JS  )d. 

(5b) 

(«b) 

tiu  2(0  1  (9M1-C0r  ) 

a[<r„l-Met.rl-(K-«  j»*  r  “w 

(7b) 

d[«rrlJ»M[orJ-»([,rt]-tcr90n| 

(•b) 

or  in  the  finite  difference  fora 


(lc) 

(2C) 

<  !«#§)[»„  J-K 

(3c) 

(40) 

Bc  B,  B.  aB, 

-  —  2  for  )+(l+_l_)(c-  ]-aJ(0  1-(1+ _ IL 

2(R»*)  «  2(r**)  zz  2r  r  2(H*«) 

)[ofJ+^(ar#)-Ih5](sc) 
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'  “S11*-.1-* l*  2^),[0r  J-e^99elt*^rr’-'A7> 


8r 


whtn 


(*c) 

(70) 

(•c) 


B  B  [<T__  J  +  tOVja]  B 

tA1)-«l-i)tarr)-a-«I)tor]*(  »,r  ”  )|)1 

[A2]-{<l+!>tarr]+(l+°®)[ur]-<  "T»a1*I°Wi  )|j2 

tV‘‘°'«1*[0*1+5t0>-1*5I»r»1,6 

‘  V‘< l*  1+27a?^>IDt1'f5I°ee1'5I<’rr)  >7 

1 V1  C»tl!*.[0r]^C<rtil-gC<,M] ) 
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CHAPTER  XXX 

COMPUTATIONAL  METHOD  FOR  CASE  1 

characte ristic  Equation*  along  Strong  Discontinuity 

The  discussion  in  ref#rence[6]  on  ths  behavior  of  waves  and 
thair  discontinuities  must  hold  for  CASE  1  as  long  as  the  incident 
wave  front  does  not  reach  the  outer  free  surface  of  the  shell,  since 
the  initial  and  boundary  conditions  in  the  present  case  are  exactly 
sane  as  those  in  [6].  Therefore  the  characteristic  equations 
(lb), (2b), (3b), (Sb),  and  (6b)  should  be  eaployed  for  the  two 
dimensional  region  in  which  every  grid  point  of  integration  wash  has 
strong  nature  of  discontinuity  in  dependent  variables  due  to  the 
inpuls ive  load  and  the  reflected  waves  fro*  the  top  free  surface.  In 
other  words  those  five  bicharacteristic  curves  Which  construct  the 
orthogonal  integration  aesh  in  the  two  dimensional  region  carry 
strong  discontinuities  so  that  we  should  employ  the  Characteristic 
equations  (lb), (2b), (3b), (5b),  and  (fib)  Instead  of  (1),(2),(3),(5), 
and  (6).  The  characteristic  equations  (lc)  (6c)  and  static  equations 
(9), (10),  and  (12)  are  rewritten  in  matrix  fora  as  follows  after  the 
bracket  notation  has  been  removed : 
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Zt  la  worthwhile  to  not*  here  that  the  bracketed  value  of  the 
dependent  variables  in  (lb). (2b), (3b), (5b),  and  («b)  represent 
"Jumps"  across  the  corresponding  bicharacteristic  curves  carrying 
strong  discontinuities  so  that  the  juaps  are  equivalent  to  the  values 
of  the  dependent  variables  which  are  discontinuous  across  tbs 
bicharacteristics.  However  there  are  no  juave  of  the  dependent 
variables  in  the  static  equation  (»),  (10),  and  (12)  since  the 
dependent  variables  are  continuous  across  the  bicharacteristics 
dr-dz-o.  it  can  be  noted  that  the  static  equations  (9)  through  (12) 
411  sorely  a  restatesent  of  the  constitutive  equations  in  the  basic 
field  equations. 


Zt  is  known  that  in  reflections  of  spherical  longitudinal  waves 
at  the  boundary  both  longitudinal  and  shear  waves  are  generated  as 
reflected  waves[6](Pls*).  Therefore  in  a \SE  1  after  the  reflection 
at  the  outer  free  surface  we  sust  consider  not  only  reflected 
longitudinal  waves  but  also  reflected  shear  waves  which  esanate  fros 
the  outer  surface  into  the  two-diaontional  region.  These  reflected 
•hear  waves  are  characterised  by  the  bicharacterlstie  curve 
Accordingly  we  should  esploy  the  characteristic  equation  (4c)  and 


supariaposa  it  on  Matrix  2.  Tha  charactsristie  aquation  (4c)  la 
supsrispossd  on  ( Jc )  to  obtain 


{2+5<B3‘B4)Hor*1+S<B3+VI0tJ"tx3i») 


(3C*) 


whara 


t4J>l-(<1-g>t0rrBl-i<l*g)tOaiy{(wg)[at,]H<l-g>[O,»4. 


iMlflOl  of  Influanca  and  Typical  toeeurtiM  Points 

A  ragion  in  tha  aolution  dootain  whara  all  points  ara  undar  tha 
sum  typa  of  aotion  is  dafinad  hara  as  a  ragion  of  influanca.  Zn 
othar  words  all  points  of  aach  ragion  of  influanca  ara  affactad  by 
tha  sum  boundary  and  initial  conditions  which  indues  tho  sum  typa 
of  particla  notion  in  tha  ragion.  All  points  in  aach  ragion  of 
influanca  ara  catagorisad  into  thraa  groups  which  ara  dafinad  as 
follows  t 

Points  that  ara  locatad  on  a  loading  wavs  front  and  do  not 
coaply  with  tha  orthogonal  schasM. 


2.  Intansadiarv  Points 

Points  that  hava  an  isModiata  contact  with  ona  or  aora 
loading  points  via  thair  bicharactaristic  curvas  and  raquira 
a  spacial  orthogonal  assh  configulation. 


M 


i 


3.  Angular  Points 

Points  that  coaply  with  tho  poxfoot  syaetrlc  auh 
conf igulation . 

Pour  regions  of  influence  and  twenty  four  recurring  points  in 
tho  ontirs  solution  domain  ara  shown  in  Piguro  S.  Bo for*  tho  loading 
mvo  roflocts  at  tho  outar  surface  tho  solution  doaain  is  divided 
into  two  regions  of  influoneo  in  accordance  with  tho  case  of 
reference^] .  Ona  is  a  one-diaensional  region  x,x,  influenced  by  tho 
loaded  boundary  and  tho  other  is  a  two-dimensional  region  r,s,r , 
influenced  by  the  free  top  surface  as  well  as  by  the  loaded  boundary. 
After  the  reflection  of  the  leading  wave  froa  the  outer  surface* 
however,  the  entire  doaain  is  divided  into  four  regions  of  influence. 
In  addition  to  the  two  previous  regions  of  influence  we  oust  add  two 
reflected  regions  which  are  influenced  by  the  outer  boundary.  One  is 
a  reflected  one-diaensional  region  r,r,  influenced  not  only  by  the 
loaded  boundary  but  also  by  the  outer  boundary.  The  other  is  a 
reflected  two-diaensional  region  r,z,r,  influenced  by  the  outer 
boundary  as  well  as  the  loaded  boundary  and  the  top  surface. 

Accordingly  all  points  in  each  region  of  influence  are 
categorised  into  three  groups  previously  defined  with  respect  to 
their  computational  schemes.  Therefore  twenty  four  recurring  points 
a  through  p  in  the  solution  doaain  can  be  defined  as  shorn  in  Pigure 
5.  All  recurring  points  are  categorised  into  the  three  groups  in  the 
following  wayt  Points  a,  a',  b,  c,  c,  d,  e,  s’,  f,  n  and  p  belong  to 


ngultr  pelati,  point*  g«  g'.  i.  i ' ,  j ,  k,  k' ,  and  ■  belong  to  the 


loading  point*  and  point*  h,h* ,  (,  ? ,  and  o  belong  to  tha  intermediary 
point*. 

Zn  tha  next  Motion  tha  boundary  and  initial  condition*  will  ix 
prascribad  and  tha  computational  *chea*  of  integration  ea-'i 
recurring  point  will  ba  di*eu**ad  in  addition  to  tha  derivation  .j 
tha  daeay*  of  tha  loading  waves  in  tarn*  of  tha  cloaad-fom. 
solutions . 


fifl—ttdtlQPdl  achd—  tax.  Point 

Tha  racurring  point*  war*  dafinad  with  respect  to  tha  ragion  of 
influanca.  tha  group  of  points,  and  tho  boundary  condition*. 
Subaquantly  wa  anist  datact  twenty  four  racurring  points  to  determine 
tha  dapandant  variable*  in  tha  antir*  solution  doaaln.  Onca  tha 
neighborhood  of  the  leading  wave  which  implies  tha  interned  1  ary 
points  as  wall  as  the  leading  points  is  determined,  wa  can  apply  tha 
perfect  symmetric  schena  to  tha  rest  of  the  solution  domain,  since 
all  points  regaining  are  regular  points  which  comply  with  the  perfect 
syaatric  aaah. 

The  following  dinansionlass  values  of  tha  boundary  condition* 

are  prascribad  whan  both  the  intensity  of  o _ -input  and  the  inner 

XT 

radius  of  tha  shall  are  considered  to  be  unity. 

Tha  boundary  conditions  for  the  loaded  boundary  ( r,s>0,t )  are 


given  as  o  -1  and  e  -0.  Dm  initial  ooaditions  for  tho  loaded 
rr  r* 

boundary  aro  given  an  Dj^-1  duo  to  [Dr]«-[o^]  tho  dynaaieal 
condltionn  of  dinoontinuition  aerou  a  wave  front(*](Vl40), 
o8-ao#/s*-o,  °e9aassaaorrdu*  to  •Qu^tiono  (9),(io),(i2),  and 

aDj/sr-o . 5  duo  to  tho  known  decay  expression  for  a  one-dimensional 
cylindrical  loading  wave. 

The  boundary  conditions  for  point  (R,0,r )  are  given  as  or  -l  and 

XT 

°zs‘*°rt>0‘  Th*  Initial  conditions  for  the  corner  point  are  given  as 
0r— 1,  aQQmaaTT’  »0#/as-o  and  aOy/ar-O.S. 

The  boundary  conditions  for  points  (R<r<Ro#0*?)  on  the  free  top 

surface  are  given  as  c r  -o _ -o . 

is  rs 

The  boundary  conditions  for  points  (Ro,x>0,t )  on  the  outer  free 

surface  are  given  as  o  -<r  -o. 

XT  r» 

All  particles  in  the  shell  except  for  those  on  the  loaded 
boundary  are  considered  to  be  at  rest  at  t-o. 

stresses  and  particle  velocities  at  the  typical  recurring  points 
a  through  p  are  evaluated  in  the  following  ways 


These  points  eoaply  with  the  perfect  ay— trie  xesh 


configulation  referring  to  Matrix  2. 


Wt*r  raplacing  ( 3c)  in  Matrix  2  with  (3c*)  due  to  reflected 
•hoar  waves  fro*  tho  outer  surface.  Matrix  2  bocoaws 


Matrix  3 


In  ordar  to  asat  tha  boundary  conditions  o  -l  and  9 

nr  rs 

Matrix  2  bacoaas 


Matrix  4 


fl*  j 


C* .  Raglactad  Ragular  rraa  Top  Boundary  Points  c,(R<r<Rp> 
M  apply  tha  aaaa  boundary  conditions  as  tha  points 
Matrix  3  to  obtain 
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<S.  Woular  Inntr  Edaa  Point  d^R.O.t  ^ 
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it  ss  n  * 


*2 

a 

.  B2 
1-a — 

r 

0 

0 

0 

°ee 

b2 

CA-1  - 

1 _ ......  -  _ 

■ 

0 

-A 

2r 

1 

c 

0 

Ur 

i 

‘V 

0 

;.V 

2r 

0 

mb 

2 

-A 

2 

• 

u. 

=  A9-l 

0 

2r 

0 

-A 

2 

3n  I 

Q  i 

-i  ! 

3Ur 

ar 

A10 

1 

i 

0 

-b 

2 

-A  i 

i _ 

3Ua 

as 

,  A12 

Matrix  7 


r  • 
* 


i ' 
1: 


11 

0 


34 


• .  Regular  inner  One-Dimensional  Point*  *<r,t) 

Sine*  th*s*  point*  ar*  located  in  th*  region  of 
one-diaensional  notion,  th*  matrix  for  these  points  is  obtained 
Matrix  l  as  follows: 
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To  b*  compatible  with  the  boundary  condition*  0^*1,  0^*0 
Matrix  6  becomes 


Tha  gaomatric  dacay  of  tha  incidant  landing  wav*  in  tha  medium 
can  ba  obtainad  in  a  cloaad-form  solution.  Zt  is  a  cylindrical 
longitudinal  wav*  front  carrying  strong  discontinuities .  Tha  wav* 
front  appears  as  a  line  in  the  r-z  plana,  this  implies  that  the  dacay 
is  a  function  of  the  independent  variable  r  only.  Therefor*  the 
characteristic  aquation (la)  along  dr-d*  is  reduced  to 

Proa  tha  aquations  (2a)  as  dt-o  or  fron  tha  dynamical  conditions  for 

discontinuities  across  a  wav*  surfac*[8](pl41)  w*  obtain 

[Or]— [cr  ] 
c  IT 

and  also  tha  static  aquations  (9),  (10),  and  (12)  give  us  tha 


following  expression: 


[o^Mov,  l-°[o  1. 
w  ss  rr 

Substituting  these  relations  into  tha  formr  aquation  gi  was  us  (with 
dt*dr)  the  wall-Xnown  expression 

-i 


dtO-1  ,  Ay. 


when  the  initial  condition  cr^-1  is  applied  K  bee  owes  unity.  Finally 
we  can  suanarize  the  quantities  of  leading  one-dimnsional  points 
g( R+r,? )  as  follows: 

arr-r‘*'  °be“  °rr'  °*z“a’rx'  "rz"0' 

au  -t  au 

or— o’  ,  a -o,  r-o.5r  and  z»o. 

”  *  ar  ST 


ga .  Reflected  Leading  Inner  flMdBl— MlQPll  Points  a’ t  .1 ) 


This  is  a  cylindrical  longitudinal  tensile  wave  which  propagates 
wia  the  bicharacteristic  curve  dr»-dx .  Therefore  we  aaploy  the 
characteristic  equation  (2a).  Since  the  stresses  are  irrespective  of 
the  s-coordinate  the  equation  ( 2a )  become 


d[arr]+d[Or]-(«(or)-[a00]+(orr)  )^, 

as  dt«o  in  (la)  we  obtain 

to1  ]-[0  ) 
rr  * 

and  from  the  static  equations  (9),  (10),  and  (12) 

Osing  these  relations  (with  dr— dr)  we  finally  com 
reverse  decay  expression  as  follow ■ 


up  with  the 


migmm 
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This  expression  is  sesw  es  that  of  the  incident  wave,  hut  we  should 
notice  that  the  value  of  r  decreaces  as  the  reflected  wave  propagates 
towards  the  inner  surface.  Theis  implies  that  after  the  reflection 
at  the  outer  surface  the  incident  divergent  wave  turns  to  the 
reflected  convergent  wave. 


h.  and  h’  intermediary  one-rvii—ne-tonei  EaiDfcl 
h.Mta>R4T-AT.tl  and  h»/»B<R+r-AT.-M 

Although  Matrix  •  is  valid  for  points  h  and  h',  should  be 
replaced  by  tt/2  for  h  and  B  should  be  replaced  by  At/2  for  h*.  B„ 
for  both  hand  h'  is  replaced  by  At. 


i.  Trading  Free  Tod  Surface  Points  l(R4t.0.rl 
These  leading  points  are  sheared  by  the  incident  wave  and  all 
longitudinal  spherical  waves  reflected  from  the  free  top  surface. 
Those  waves  on  the  points  i  are  characterised  by  the  bicharacteristic 
curve  dr-dr .  Therefore  we  use  the  characteristic  equation  (lb)  and 
by  equations  (2b),  (9),  and  (12)  as  dt-O,  we  have  [g^ ]  and 

[CqqI-oCo^],  and  (lb)  becomes  fdtc^]— {( 2+a)[awJ-[g„])^.  But 


XT 


it  *  zs "  r 


the  boundary  condition  is  [or  ]-0,  thus  the  decay  is  given  by 

zz 

dtorr3  a 

--(14?)  ortc^l-r  2, 

XT 


and  in  summary 

d_-r  2  , 
»r  .  -<2*|> 
«-<u5>r  2 


”<50  rr' 

1U 

,  and  _ z»o. 

yi 


o_-o. 

rz 


0  --or 

r  rr 


o -or 


The  particles  at  points  i  are  subject  to  the  cosipressive  stress 


component  <r  which  refers  to  the  inner  leading  one-dimensional 

W% 

points  g.  Since  [03]  ( frost  ( 6b)  as  dr-O),  02  at  points  i  is 

equal  to  g _ ■O’  -or 

Slg  ZT| 

i* .  Kef  looted  Leading  Tree  Top  Surface  Points  i,(Ko<K'tt,t ) 


The  reflected  leading  wave  front  is  propagating  towards  the 
inner  surface  via  the  bicharacteristic  curve  dr— dt .  Wo  substitute 
[UyMOyy]  and  [o^-atOyr]  that  coae  frost  (lb),  (9),  and  (12)  as 
dt-o  into  the  characteristic  equation  (2b)  to  obtain 


2d[o _ ]**{(  2+o)[o _ ]-[cr _ ] )  —  .  But  the  free  sufece  condition  leads  us 

xt  rx  zs  r 


to  (with  dt— dr) 

^  ^  art  o  dr 

T5gi"<ln>r  “ 


-<1»§> 


and  in  summary 

-<1*5> 

c  • -r,  ,  a*.-  so  , 

rr  a  tw  xt  , 

au_  a  -<2*h  3U 

— i— (l+|)r  2  ,  and  *«0.5or  * . 

It  * 


a  m0,  U  m<r 

z%  r  rr 


o -or  \ 


The  particles  at  points  i'  are  subjected  to  the  tensile  stress 

component  <j  which  refers  to  the  reflected  inner  leading 
«• 

one— dimensional  points  g ' .  Since  [o  ]— [0_]  (front  (6b)  as  dt-O), 

tt  * 

o  at  points  i*  becomes  c  ,-cr _ ,-or”^. 

ssg  rrg 


We  can  refer  to  Rsforence[6]  for  the  calculation  of  these 
points.  The  dependent  variables  are  integrated  by  the  following 
matrix ■ 


T 
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Matrix  10 


k.  leading  Inner  Two-Dimensional  Points  kf r.z>r+R-r.t) 

These  points  are  not  compatible  with  the  orthogonal  scheme  for 
the  characteristic  equations.  Points  k,  however,  lie  on  the 
reflected  spherical  wave  which  passes  through  two  known  points  so 
that  we  can  apply  a  linear  interpolation  between  these  two  points 
which  are  known  from  previous  calculations,  one  of  the  known  points 
is  a  point  i  and  the  other  is  possibly  a  point  f.  Xf  the  latter 
point  does  not  coincide  with  a  point  (  and  appears  between  two 
points,  another  interpolation  between  the  two  f  points  is 
necessary.  all  calculations  of  these  interpolations  axe  carried  out 
in  the  sane  manner  as  in  reference^] . 

k*.  Reflected  Leading  n.innal  gg^ptl 

h*fr.a>»+*-2Ki>+g.T  ' 


According  to  Piure  6  we  can  apply  a  similar  interpolation 


to  evaluate  stresses  and  particle  velocities  at  thaaa  points  k* .  Two 
known  points  froa  which  a  point  k‘  is  calculatsd  by  intsrpolation 
axist  in  ths  r -constant  plana.  One  is  a  point  i'  and  the  other  is 
possibly  a  point  (' .  if  the  latter  point  does  not  coincide  with  a 
point  t  which  is  a  known  grid  point  of  integration,  it  is  calculated 
by  another  interpolation  that  can  refer  to  [«]. 

I-  Tfitar— dl»rv  Two-Dimensional  Pointa  9t  r.R+T-r,T  1 

These  points  are  located  on  the  reflected  logitudinal  cones  and 
directly  on  the  integration  grid  points.  But  these  points  do  not 
coaply  with  the  orthogonal  aesh  configulation,  since  the 
bicharacteristic  curves  drawn  froa  one  of  these  points  Bust  terminate 
on  the  preceding  reflected  longitudinal  cone  (r-Ar,o,r-R+At).  It 
should  be  noted  that  every  reflected  longitudinal  wave  generated  by 
the  incident  wave  on  its  free  top  surface  carries  new  strong 
discontinuities.  Accordingly  the  integration  paths  aust  be  drawn 
froa  the  preceding  reflected  cone  other  than  ordinary  grid  points. 
The  quantities  at  points  are  evaluated  by  Matrix  2.  The  details  of 
the  calculations  for  B  ^  and  [A^]  are  presented  in  referenced] . 

£'  .  Reflected  Intermediary  Two-Dimensional  Points 

f’fg.lti-21  tx.W 

Although  the  similar  calculation  scheae  for  and  [A^]  can  be 
applied  to  these  reflected  points,  the  governing  aatrix  is  Matrix  3 


due  to  the  reflected  shear  wave. 


Matrix  11 


**>•  •valuation*  of  and  [A^]  at  thasa  points  a  and  o  can  ba 

dona  by  tha  sana  aathods  as  thosa  for  tha  points  k  and  £ 
raspactivaly. 

Baqular  Outar  Cornar  Point  n(Ro,0,T) 

*h*n  o  -  0  -0  Matrix  2  bacoaas 

XX  7» 
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CHAFX*R  XV 


COMPOTATIOHAL  METHODS  FOR  CASE  2,  CASE  3  AMD  CA5E4 


Boundary  and  initial  Conditions  in  cm  2 

Tha  geometry  and  the  loading  for  CASE  2  are  shown  in  Figure  1  and 
discussed  in  detail  in  Chapter  X.  The  shell  considered  here  is 
infinitely  long  and  then  it  is  obvious  that  the  shell  does  not  have  a 
free  top  surface  at  z-0  which  in  CASE  1  generates  reflected 
two-dimsnsional  longitudinal  waves.  However  all  discussion  in  CASE  1  on 
the  characteristic  fomuration  and  the  computational  method  except  on 
the  application  of  the  boundary  conditions  must  hold  for  CASE  2.  Xn 
other  words  we  can  assume  that  spherical  longitudinal  waves  reflect  from 
the  plane  z-0,  accordingly  the  characteristic  fomuration  and  all 
computational  procedures  in  CASE  1  are  valid  for  CASE  2  with  the 
exception  of  the  application  of  the  following  conditions  at  the  plane 
z-0 . 


The  following  boundary  . conditions  are  prescribed  when  both  the 
intensity  of  O’  -input  and  the  inner  radius  of  the  shell  are  considered 

XT 

to  be  unity. 

The  boundary  conditions  for  point  (R,o,r )  are  given  as  o _ -1  and 

XT 

°nm°'  The  initial  conditions  for  point  (R,0,0)  are  given  as  0r«- 1, 

0(1+0) 

a0©"° zs"°°rr'  4,14  - 2 — *  **  wil1  **  shown  later. 


-V  *  £2  ■■ 
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The  boundary  condition*  for  points  (R,z<0,z)  ars  a  “<r _ -0 .  Ths 

tv 

initial  conditions  for  those  points  are  a .  - cr  -U  -0 -o . 

Ths  boundary  and  initial  conditions  for  loaded  boundary  points 
(X,z>0)  and  outer  surface  points  (Ro»-oo<z<+oo)  are  the  sane  as  those  in 
CASE  1. 


Recurring  Points  in  CASE  2 

Figure  6  shows  the  four  regions  of  influence  and  twenty  five 
recurring  points  in  the  r-z  plane.  The  quantities  at  all  recurring 
points  except  points  c,  d,  i,  i’ ,  n,  and  q  can  be  evaluated  by  the  same 
procedure  as  in  CASE  1.  The  quantities  at  the  recurring  points  when  we 
can  not  apply  the  sssm  computational  method  as  in  CASE  1  are  computed  in 
the  following  wayi 

c.  Baaular  Two-Dimensional  Outer  surfacs  Pointy 

When  a  »  c _ -0  Matrix  2  becomes 

rr  rz 


Matrix  15 


i.  MftfUna  avg-PlMMional  Incident  Point*  i(R+r.o.t> 

Th«  leading  wave  front  at  points  i  carries  strong  discontinuities 
via  the  bicharacteristic  curve  dr-dt .  Therefore  we  employ  the 
characteristic  equation  ( lb ) 

dr 


substituting  the  dynamical  condition  for  wave  surface  [<y  ]«-[U  ]  (or 

IT  r 

from  (2b)  as  dt-O)  to  obtain 

and  from  the  static  equations  (9),  (io),  and  (12),  [oQO]-[o  ]-a[a  ]. 

6u  XT 

wt  finally  com  up  with  (aa  d?«dr) 


“"V  dr 


1^? 


—  —  or  (<y  ]-Kr 
*  IT 


-1 


♦7 


Sine*  cr _ -1  at  (R,0,0)  K  is  taken  to  b«  unity.  This  is  ths  well-known 

XT 

agression  for  the  geometric  decay  of  the  spherical  incident  leading 

wave.  All  quantities  for  points  i  are  obtained  as  the  following 

closed-form  solution: 

a  -r'1,  a^-ao,  cr  *oa  , 

XT  00  XT  ZZ  IT 


a  -o,  u  — o  ,  u  — a 
rz  r  xt  z  zz  jy 


3U  -5  3U 

, _ ?«r  ,  and  _ ?-0. 


3 Z 


i*  .  Reflected  Leading  Two-Dimensional  Points  i'(Ro<R+r.Q.t  1 

The  reflected  leading  wave  propagates  along  the  bicharacteristic 

curve  dr— dr.  Therefore  we  take  the  characteristic  eiuation  (2b)  to 

determine  the  decay  of  the  reflected  spherical  wave, 

dr 


From  (lb)  as  dt-0  we  have  fo^  WU^.1  and  from  the  static  equations 

COQ-<7  -aa _ .  we  substitute  these  relations  into  (2b)  to  obtain  (as 

ot)  ZZ  IT 

dr— dr) 

dt<rrr1  dr  ,  -l 

JTJ-r  "  I'rr1"'‘  • 


rr' 


This  reverse  decay  expression  implies  the  convergent  spherical  wave.  Zn 

summary  the  closed-form  solutions  are  as  follows: 

cr  -r ,  Ofla-oor ■  ,  c-ac, 

rr  oe  rr  zz  rr 

3U  _2  SU 

<*  -0,  U  -a  U,-<7  _ ?— r  .  and  -?-0. 

rz  r  rr  z  zz  gp  34 


n.  Regular  Inner  Surface  Points  nf Q.-r<z<Q.r \ 

When  cr _ -  a  -o  Matrix  2  becomes 

rr  rz 


Matrix  16 


q.  LBMinn  innir-auitdcii  goa-nta  mn.-f.Ti 

If  the  boundary  conditions  for  points  j  axe  set  to  the  same  value 

as  those  for  points  q,  the  closed-form  solution  of  o  for  points  j  is 

zz 

equal  to  that  for  points  q.  It  follows  that  in  order  to  calculate  the 

decay  of  <r  at  points  q  we  can  employ  the  characteristic  equation  (5b) 
zz 

along  the  bicharacteristic  curve  dz-d  which  characterizes  the  leading 

spherical  wave  front  at  points  j  under  the  boundary  conditions 

a _ -ff _ -0 .  The  characteristic  equation  (5b)  with  <r _ -cr _ -o  is  mitten 

rr  rz  it  rz 

as 

Prom  the  dynamical  condition  or  (6b)  as  dr-0  we  have  [o-  ]— [u„  ],  then 

zz  * 

the  equation  becomes 


.'Vh/ 


as  dr -da  vs  obtain 


d[q»»1  l+o  dz 
T^T]  ■'  2  <R+« 


or  [o  ]*K( R+z ) 
zz 


1+0 

2 


Since  <x  -  a  at  (R,o,o)  and  if  R-l,  K  bs corns s  a.  zt  follows  that 

_l+2 

[oM]-o(l+z)"  2  . 

Finally  ths  quantities  for  points  q  are  obtained  as  the  following 


closed-form  solution: 


°rr"°'  crzz"a(1+'z'  ) 
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Superposition  of  Shifted  Loads  for  CASK  3 


Our  aim  here  is  to  obtain  the  transient  stress  distribution  in  an 
infinitely  long  thick  cylindrical  shell  subject  to  an  impulsive  constant 
load  of  finite  length.  Zt  is  obtained  by  applying  the  principle  of 
superposition  since  all  action  is  linear  elastic. 

we  now  consider  two  cases  of  loading  that  can  be  readily  obtaind 
from  the  previous  calculation  for  CASE  2.  One  of  those  loading  cases 
is,  as  shown  in  Figure  6,  that  its  semi-infinite  load  along  the  inner 
surface  shifts  upvards(in  the  negative  direction  of  s)  by  a  half  of  the 
load  width.  The  other  is  that  the  semi-infinite  load  shifts  downwards 
also  by  a  half  of  the  load  width  and  the  load  is  applied  in  the  reverse 
direction,  namely  the  input  stress  is  changed  to  tensile  stress  while 
the  stress  intensity  remains  unity  (7  — l).  After  the  superposition  we 

IT 

obtain  the  stress  distribution  for  a  case  of  a  finite-width  load  Whose 


so 


I 


center  lina  liaa  on  tha  r-axis.  Zn  tha  practical  computation,  however, 
wa  have  to  shift  tha  load  of  tha  lattar  caaa  ona  grid  point  lower  than  a 
half  of  tha  load  width  as  shorn  in  Figure  6. 

Consacutiva  suparoosition  Schema  for  CASE  4 

Up  to  hara  wa  considered  only  step  constant  input  shown  in 
Figure  8(a)  for  CASE  l,  CASE  2,  and  CASE  3.  Howavar,  in  order  to  «>>*•* in 
a  stress  distribution  of  tha  travailing  load  caae(CASE  4)  rectangular 
inputs  which  hava  various  duration  of  loading  tine  must  be  considered. 
A  rectangular  <r  input  can  be  obtained  by  superimposing  a  negative  unit 
step  input  whosa  striking  time  is  shifted  to  r  on  a  unit  stop  input  as 
shown  in  Figure  8.  Once  a  stress  distribution  of  case  3  duo  to  a 
rectangular  input  load  which  has  certain  duration  of  loading  is 
obtained,  wa  can  compute  tha  stress  distribution  of  tha  travailing  load 
case  by  means  of  tha  consecutive  superposition  of  the  previous  result. 
Tha  spaed  of  tha  travailing  load  can  be  controlled  by  tha  duration  of 
loading  time  in  CASE  3. 

In  view  of  Figura  9  it  is  seen  that  a  load  of  finite  length  is 
applied  at  r-o  as  shown  in  (a)  and  then  at  *-ra  tha  load  is  removed, 
however  at  the  sane  tine  another  load  which  is  shifted  downwards  by  one 
grid  point  distance  is  applied  and  again  at  the  load  is  removed 
when  another  shifted  load  is  applied.  This  process  is  repeated  until 
the  incident  wave  due  to  the  first  loading  reaches  the  inner  surface 
After  reflecting  at  the  outer  surface.  The  stress  distribution  at  r - 


si 


ia  obtained  by  suparinposing  tha  atraaaaa  dua  to  tha  first  loading  at 
t-t&  on  tha  strassas  dua  to  tha  sacond  load  appliad  at  t« r&.  Thus  what 
wa  obtainad  by  suparposition  is  an  accunulatad  strass  distribution  dua 
to  aany  ractangular  input  loads  that  account  for  a  travailing  load  of 
finita  langth . 


i: 

[ 
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CHAPTER  V 

RESULTANT  NOTION  IK  THICK  SHELL 

Cfl—ltNE  BMflriM 

The  transient  notion  in  a  thick  shall  was  obtained  with  aid  of 
cue  OTHER  computer.  Five  separata  progress  are  utilised  to  obtain 
the  stress  distribution  of  the  present  boundary  value  problems .  The 
first  and  second  programs,  TRBS1  and  TRES2  are  an  extension  of  the 
coputer  code  CHAR2DZ  developed  by  M.  Ziv[6].  Next  three  prograas, 
recti NP,  TRES3,  and  TRES4  were  developed  during  the  couse  of  this 
work  to  culminate  the  coaputation  of  the  transient  action  in  a  thick 
shell  subject  to  an  impulsive  travelling  load  of  finite  length  on  the 
interior.  Also  another  prograa  FLOTALL  is  utilised  to  plot  the  tlae 
history  of  the  stresses  and  the  particle  velocities  which  axe 
computed  by  the  above  five  prograas.  These  programs  are  written  in 
FORTRAN  IV  language. 

The  prograa  TRE31  determines  the  stress  distribution  of  CASE  1 
in  which  the  load  is  applied  as  a  step  input,  so  the  duration  of 
loading  is  permanent.  The  output  of  TRE51  stored  on  TAFE1  can  be 
plotted  on  the  CALCOMP  plotting  machine  by  using  the  program  PLOTALL. 

The  second  prograa  TRE32  is  used  to  determine  the  stress 


distribution  of  CASE  2  in  Which  the  duration  of  loading  is  permanent. 
The  output  is  stored  on  TAPES  which  will  be  retrieved  separately  by 
the  prograas,  RECTINP,  tress,  and  PLOTALL  for  their  coaputation  and 
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plotting  purposas.  KZCTXXF  la  a  prograa  to  coaputa  various  oasos  of 
a  r act angular  input  load  for  CASE  2.  Bill  prograa  ratriavas  TAPES 
and  storas  its  output  on  TAPE6. 

tha  prograa  TRES3  carry  out  ttaa  calculation  of  tha  suparposition 
schaaa  for  CASE  3.  nils  prograa  ratriavas  TAPES  obtainad  by  TME82  or 
RECTXNP.  Sinca  tha  prograa  RZCTINP  storas  its  output  on  TAPE6, 
bafora  attaapting  to  run  TRES3  of  a  ract angular  input  loading  casa 
TAPE6  should  ba  ranaaad  as  TAPES  which  is  ccapatihla  with  tha  foraat 
in  TRE33. 

Tha  last  prograa  TRES4  datarainas  tha  strass  distribution  of  a 
travailing  load  casa  (CASE  4).  TAPE10  obtainad  by  TRES3  is  ratriavad 
by  TRES4  which  will  stora  tha  output  on  TAPE15. 

All  prograa  listings  ara  proaantad  in  Appandix  A-P. 

Bacordad  Plots 

Pina  groups  of  plots  wars  obtaind  as  shown  in  Piguxas  10-63 
which  rapraaant  tha  tiaa  history  of  tha  strassas  and  particla 
valocitias  for  all  casas.  Tha  following  data  coaaon  to  all  casas  ara 
prascribad  during  tha  confutation i  innar  radius  of  tha  shall  R-1.00, 
outar  radius  Ko-1.30,  Poisson's  ratio  U -0.15,  intansity  of  input 
^■1.0,  stop  slxa  of  intagration  Ar  -0 . 02 ,  and  nuafear  of  tiaa  stapa 
is  30. 


Ths  first  group  of  plots  shows  ths  tias  history  of  tbs  strsssss 
and  ths  partiels  vslocitiss  of  CASE  1  at  six  dstsctsd  points. 
Cbsarving  Figurs  14  on#  can  sss  that  thrss  juaps  occur  during  ths 
sntirs  tins  of  rscord.  Thoss  juaps  ars  dus  to  ths  arrivals  of  ths 
incidsnt  longitudinal  wavs,  ths  first  rsfrsctsd  longitudinal  wavs 
froa  (1.0, 0,0),  and  ths  rsfrsctsd  wavs  froa  ths  outsr  surfacs  in  ths 
ordsr  of  arrival  tias. 

Ths  nsxt  thrss  groups  of  plots  Figurs  16  through  33  show  ths 
tins  history  of  ths  strsssss  and  ths  partiels  vslocitiss  of  CASE  2. 
Thrss  casss  of  ths  duration  of  loading  ars  coaputsd  for  CASK  2,  that 
ars  0.04,  0.08,  and  psraanant  casss.  xt  should  bs  noticsd  that  in 
Figurs  23  or  29  of  ths  r set angular  input  casss  a  high  tsnsils  strsss 
wavs  which  is  duo  to  ths  raflsctsd  logitudinal  wavs  froa  ths  outsr 
frss  surfacs  passss  through  ths  points  locatod  around  ths  half  way  of 
width  of  ths  shall.  If  ths  duration  of  loading  psraanant  a 
raflsctsd  tsnsils  strsss  wavs  will  bs  cancsllod  by  a  coaprsssion  wavs 
issuod  froa  ths  loadod  boundary. 

Ths  nsxt  thrss  groups  uf  plots  aura  rocordsd  for  CASE  3  and  ths 
last  two  groups  of  plots  ars  obtainsd  for  CASE  4  in  which  spssds  of 
ths  travailing  load  ars  0.5  and  1.0.  Qbssrving  Figurs  52  through  63 
ons  can  sss  that  in  thoss  plots  aany  juaps  in  ths  strsssss  and  ths 
partiels  vslocitiss  occur  during  ths  sntirs  tias  of  rscord.  This  is 
bscauss  that  aany  discontinuous  wavs  fronts  dus  to  ths  loading  and 
unloading  procsss  axist  in  ths  solution  doasln.  For  sxaapls  in 
Figurs  63  ths  first  juap  occurs  at  r-0.08  and  aftar  that  a  juap  is 


obwmd  step  by  step  until  tbs  last  tins  step,  sines,  in  this  case, 
the  speed  of  the  travelling  load  is  1.0  which  implies  that  the 
travelling  load  is  Moving  step  by  step. 

Thus,  displacement  and  strain  components  at  any  point  in  the 
shell  any  be  evaluated  in  terms  of  dimensionless  valuables  from  the 
computer  program  presented. 
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APPENDIX  A 

FIGURES  IN  CHAPTERS  I-IV 


Outer  free  surface 


Top  free  surface 

/  / 


Figure  5  Influence  regions  and  twenty  four  recurring  points  in  CASS  1 


figure  6.  Influence  region*  and  twenty  five  recurring  point*  in  CASK  2 


(*)  step  input 


(to)  Tine-shifted  and  (c)  Resultant  rectangular 
reversed  step  input  input 


Figure  8.  Impulsive  rectangular-input  loading. 
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APPENDIX  B 

PROGRAM  LISTING  OF  TRES1 
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PROGRAM  TRE31( OUTPUT, TAPE1.TAPE2)  OOOXO 

C  CASE  2  t  TRANSIENT  RESPONSE  OF  A  SEMZ-ZN7ZMZTELT  LONG  TUBE  00030 
C  SUBJECTED  TO  LOAD  APPLIED  FROM  THE  INTERIOR  AMD  ALONG  00040 
C  THE  LENGTH  OF  THE  TUBE  OOOSO 
C  00060 


c 

- 00070 

c 

CO-ORDINATE  SYSTEM  FOR  THE  ARRAYS  USED  IN  THE  PROGRAMS 

00060 

c 

00090 

c 

J  -  COORDINATE 

FOR  Z-AXXS.  J-l  AT  Z-0.0. 

00100 

c 

K  -  COORDINATE 

FOR  R-AXIS.  K-l  AT  R-DRO. 

00110 

c 

L  -  COORDINATE 

FOR  VARIABLES.  1  -  3ITT  5  -  UZ 

00120 

c 

2  -  UR  6  -  DUZDZ 

00130 

c 

3  -  DURDR  7  -  SIRR 

00140 

c 

4  -  SIZZ  6  -  3IRZ 

00150 

c 

NT  -  TIME  COORDINATE.  1  -  TOW,  2  -  TOW-DT,  3  -  T0W-2*DT 

00160 

c 

c 

00170 

—00180 

c 

00190 

c 

INPUT  DATA 

00200 

c 

00210 

c 

N  - 

NUMBER  OF  DIVISIONS  ACROSS  THICKNESS  OF  CYLINDER 

00220 

c 

INDEX  - 

TOTAL  NUMBER  OP  INTEGRATION  MUST  BE  2*»)( MAXIMUM  30)  00230 

c 

DRO  - 

INTERNAL  RADIUS 

00240 

c 

DR1  - 

EXTERNAL  RADIUS 

00250 

c 

RNE  - 

POISSON'S  RATIO 

00260 

c 

FF  - 

DIMENSIONLESS  LOADING  INTENSITY 

00270 

c 

00260 

c 

THE  FORM  OF  OUTPUT  IS  SELECTED  BY  SPECIFYING  IPRINT  AND  INPUT 

00290 

c 

THE  INFORMATION  REQUIRED  FOR  THE  OUTPUT 

00300 

c 

00310 

c 

IPRINT 

FORM  OF  OUTPUT 

00320 

c 

00330 

c 

I 

PRINT  FOR  A  SPECIFIED  TIME 

00340 

c 

2 

PRINT  FOR  A  SPECIFIED  POINT 

00350 

c 

c 

3 

PRINT  FOR  BOTH  SPECIFIED  TIME  AND  POINTS 

00360 

00370 

c 

00380 

c 

I FROM  - 

STARTING  TIME  FOR  PRINTING 

00390 

c 

ITILL  - 

TIME  FOR  TERMINATION  OF  PRINTING 

00400 

c 

IWRITE  - 

TIME  INTERVAL  OF  PRINTING 

00410 

c 

NFRINT  - 

NUMBER  OF  POINTS  SPECIFIED  (MAXIMUM  9) 

00420 

c 

JPRINT  - 

J  -  COORDINATE  OF  SPECIFIED  POINTS 

00430 

c 

KPRINT  - 

K  -  COORDINATE  OF  SPECIFIED  POINTS 

00446 

c 

00450 

C*' 

**00460 

c 

00470 

COMMON/FO/FF , FB , FR 

00480 

COMMON/ ALL/ I, 

TOW, R, Z , K, J , DT5 , ALFA , BETA , BETA2 , G2 , BG , CBA , CABA, PIES 

,  N00490 

o  n  n  o  o  o  o  n  oo 


St 


c 

c 

c 


COMMON/RE/ IFROM, ITILL, IWRITE , X J1 , IPRINT, NPRINT  OOSOO 

COMHON/FRINT/JPRINT( 9 ) ,K?RINT( 9 )  00510 

DIMENSION  T3( 31,8 ),TT( 34, 8 )  00520 

DIMENSION  Q3( 31, 8 ) , QJ(  2,31,8)  005IO 

DIMENSION  ZA<  41)  00540 

CQtQCM/TN/T(  34,31,8  )  ,T1(  34,31,8  ),T2(  34,  31, 8 ),TOTAL(  34,  31,8)  00550 

COMMON/QN/Q<  34/31(8  ) , Ql(  34, 31, 8 ), Q2(  34, 31,8)  00560 

00570 

INPUT  TO  THE  PROGRAM  00580 

00550 

DATA  INDEX, N,DR0,DRl,RNE,PP/30, 15,1. ,1.30, .15,1./  00600 

DATA(JPRINT(M),M-l,2)/2,2/  00610 

DATA(XPRINT(M),M-1,2)/1,2/  00620 

DATA  IPRINT , I FROM, ITILL ,  IWRITE , NPRINT/1 ,1,30,1,2/  00630 

Nl-N+1  00640 

INDX1-INDEX41  00650 

INDX4-INDEX+4  00660 

CALL  GALIM(RNE,DRO, INDEX, INDX1, INDX4,T3,TT,  00670 

+DR1 , Q3 , QJ, ZA, N1 )  00680 

STOP  00690 

END  00700 

00710 

00720 

SUBROUTINE  GALIM(  RNE,DRO,  INDEX,  INDX1,  INDX4,T3  ,TT,  00730 

+0R1 , Q3 , QJ, ZA, N1 )  00740 

00750 

00760 

PURPOSE)  TO  FIX  THE  SCHEME  OP  INTEGRATION  *  00770 

00780 

00790 


COMMON/ALL/I ,  TOW,  R,  Z,  K,  J,  DT5 ,  ALFA,  BETA,  HETA2 ,  G2 ,  BG,  CHA,  CABA,  PIE5,  M00900 


COMMON/PRINT/ JPRINT(  9  ) ,  KPRINT(  9  )  00810 

COMMON/RE/ I FROM , ITILL, IWRITE, I Jl, IPRINT, NPRINT  00820 

COMMON/FO/FF , FB , FR  00830 

CQMM0M/AA/B1 , B2 , B3 , B5 , B6 , B9  00840 

DIMENSION  ZA(N1)  00850 

COMMON/TH/T(  34,31,8 ) ,T1(  34, 31, 6 ) ,T2(  34, 31,8),  00860 

+TOTAL(  34,31,8)  00670 

CQMMON/QN/Q( 34,31,8), Ql( 34, 31, 8 ) ,Q2( 34, 31,8)  00880 

DIMENSION  T3(INDX1,8),T4(3,8),TT(INDX4,8)  00890 

DIMENSION  Q3(  INDX1, 8 ),  Q4(  3 , 8 ) ,QJ( 2 , INDX1, 8  )  00900 

00910 

CALCULATION  OF  THE  CONSTANTS  00920 

00930 

FR— FF  00940 

FRZ-0 .  00950 

DT-( DR1-DR0 ) /FLOAT ( N )  00960 

DT5-DT/2.0  00970 

ALFAaRNE/( 1 . O-RNE )  00980 

BETA2«(  1 . 0-ALFA )/2 . 0  00990 

BETA-3QRT( BETA2 )  01000 

G2*DT/(  1 . 0+BETA )  01010 
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802 . 0 *BETA*G2  01020 

CBA-( 1 . 0-BETA )/( 1 . 0+BETA )  01030 

CABA-2 . 0*BITA/(  1.0+ BETA)  01040 

Bl-DTS  01080 

B2-DT5  01060 

B3-G2  01070 

BOOTS  01080 

B6-DTS  01090 

S9-DT  01100 

IJ-1  OHIO 

PIE5-2.0«ATAN(1.0)  01120 

C  01130 

C  SET  ALL  ARRAYS  EQUAL  TO  ZERO  01140 

C  01180 

00  SO  L-1,8  01160 

DO  49  NT-1,3  01170 

T4(NT,L)-0.0  01160 

Q4( NT , L )— 0 . 0  01190 

49  CONTINUE  01200 

DO  50  K-l, INDX1  01210 

T3(K,L)—0.0  01220 

Q3(K,L)-0.0  01230 

QJ( 1,K,L)— 0.0  01240 

QJ( 2 ,K, L)— 0.0  012S0 

DO  SO  J-1.INDX4  01260 

T(J,K,L)-0.0  01270 

Tl(  J,K,L)— 0.0  01280 

T2( J,K,L)— 0.0  01290 

TOTAL(  J,K,L)-0.0  01300 

Q<J,X,L)-0.0  01310 

Ql(  J.K.D-0.0  01320 

Q2(  J,K, L )— 0 . 0  01330 

50  CONTINUE  01340 

c  01350 

C  INITIAL  CONDITIONS  01360 

c  01370 

Tl( 1,1,7 )-PP/DRO**{ 1 . O+ALTA/2 . 0  >  01380 

Tl( 1 » 1 , 1 )— ALPA*T1( 1,1,7)  01390 

Tl( 1,1, 2  )— Tl( 1,1,7)  01400 

Tl(  1,1,3 )— FP*(  1 . 0+ALFA/2 . 0 )/DAO**(  2 . 0+ALPA/2 . 0  )  01410 

Tl( 1 , 1 , S )— ALPA*FT/SQRT( DRO )  01420 

DO  55  J— 2 , INDX4  01430 

Tl{ J, 1 , 7 )— rr/SQRT( DRO  )  01440 

Tl<  J, 1 , 1 )— ALFA*T1(  J, 1 , 7 )  01450 

Tl( J , 1 , 4 )— Tl( J , 1 , 1 )  01460 

Tl(  J,  1 , 2  )— Tl(  J,  1 , 7  )  01470 

Tl{ J,l,3)-O.S*EP/DRO**1.5  01490 

55  CONTINUE  01490 

DO  60  L-1,9  01500 

T4(  1 , L )— Tl(  1 , 1 , L )  01510 

DO  60  J— 1 , INDX4  01520 

TT(  J ,  L  >-Tl(  J,  1 ,  L  )  01530 
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C 

c 

c 


c 


c 


60  CONTINUE  01540 

01550 

THE  FRAME  OF  INTEGRATION  01560 

01570 

DO  2000  1-1. INDEX  01550 

SIGN-1.0  01550 

TOW-I*DT  01600 

IA-I+1  01610 

IA1-IA  01620 

IB— 1+2  01630 

IC— 1+3  01640 

KX-3  01650 

DO  1000  JM-2.IC  01660 

KK-5-KK  01670 

J— 1+4— JM  01650 

Z-FLQAT(  J)*DT-DT  01690 

IF(JM  .GT.  3)  GO  TO  200  01700 

IF( JM  .EQ.  3)  GO  TO  300  01710 

01720 

100  K-l  01730 

R-ORO  01740 

CALL  LOADED ( DRO, INDX4, INDX1,DT,T,T1,T2, SIGN, DR1 )  01750 

IF(  I  .EQ.  1)  GO  TO  10S  01760 

DO  110  K-2,I  01770 

R— FLOAT( K ) 'DT-DT+DRO  01750 

CALL  GENER( DRO, INDX4, INDX1,DT,T, T1,T2, SIGN.DR1 )  01750 

110  CONTINUE  01500 

105  K-I+l  01510 

R— FLQAT(  I ) 'DT+DRO  01520 

CALL  MAVE( DRO, INDX4, INDX1 , T, SIGN , FF )  01530 

DO  115  K-l, IA  01540 

DO  115  JJ-IC, INDX4  01550 

DO  115  L— 1, 8  01560 

T(JJ,K,L)-T(IB,K,L)  01570 

115  CONTINUE  01550 

DO  120  JJ— 2 , IA  01590 

DO  120  L— 1,8  01900 

T(  JJ, IA,L)» T( IB, IA,L)  01910 

120  CONTINUE  01920 

GO  TO  1000  01930 

01940 

300  K“1  01950 

R”DRO  01960 

CALL  U£AD<  DRO, INDX4, INDX1,DT.T.T1,T2, SIGN, DR1)  01970 

DO  305  L— 1, 8  01980 

T3(  1 ,  L  )— T(  J,  1 ,  L  )  01990 

T4<3,L)-T4(2,L)  02000 

T4( 2 , L )— T4< 1 , L )  02010 

305  CONTINUE  02020 

T4( 1,7 )— FF/{  DRO+TOW ) **(  1 . 0+0 . 5 'ALFA )  02030 

T4( 1,1 )— ALFA*T4(  1,7)  02040 

T4(  1,2  )— T4(  1,7)  02050 
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T4< 1 , 3 )-FT *< 1 . 0+0 . 5 *ALTA )/( DRO+TOW ) »*( 2 . 0+0 . 5  "ALFA )  02060 

T4(  1,5 )-rr*ALTA/SQRT(  DRO+TOW )  02070 

T4<l,4)-0.0  02000 

T4( 1,6  )— 0 . 0  02000 

T4<l,8)-0.0  02100 

IF<I  .LE.  2)  GO  TO  1000  02110 

DO  310  K-3,I,2  02120 

DO  310  L-1,8  02130 

T(  J,X,L)-T(IB,X,L)  02140 

310  CONTINUE  02150 

320  GO  TO  1000  02160 

C  02170 

200  XF( J.EQ.  1)  GO  TO  500  02180 

C  02190 

400  IF( XX  .EQ.  2)  GO  TO  405  02200 

K-l  02210 

R-DRO  02220 

CALL  L0AD1( DRD , INDX4 , XNDX1 , DT , T, T1 , T2 , SIGN , DR1 , FRZ )  02230 

405  DO  445  X-KX,X,2  02240 

R-PLOAT( K ) *DT— DT+DRO  02250 

UI-( J-l ) *( J-l )-I *I+( K-l ) *< K-l )  02260 

ir(U*  .GT.  0)  GO  TO  430  02270 

KL-K+J-I-2  02280 

IF(ML)  410,415,425  02290 

410  CALL  GENERIC DRO,INDX4,XNDXl,DT,T,Tl,T2, SIGN, DR1)  02300 

GO  TO  445  02310 

415  CALL  DIAG(DRO,INDX4,INDXl,DT,T,Tl,T2,T4,SIGN,DRl)  02320 

DO  420  L-1,8  02330 

T3(K, L  )— T( J,K, L )  02340 

420  CONTINUE  02350 

GO  TO  445  02360 

425  CALL  GINCTRC  DRO, INDX4, INDX1, DT, T3 , T4, T, SIGN, DR1, N1 )  02370 

GO  TO  445  02380 

430  DO  440  L-1,8  02390 

T( J.K.L)-T(IB.K.L)  02400 

440  CONTINUE  02410 

445  CONTINUE  02420 

GO  TO  1000  02430 

C  02440 

500  IF(KK  .EQ.  2 )  GO  TO  505  02450 

K-l  02460 

R-DRO  02470 

CALL  B0AX1( DRO, INDX4, XNDX1, DT,T, T1,T2, SIGN, DR1 )  02480 

505  IP(Z  .LE.  25  GO  TO  515  02490 

IAN— 1-1  02500 

DO  510  K-KX, IAN, 2  02510 

R-FLOAT( K ) *DT-DT+DRO  02520 

CALL  FREE(  DRO, ZNDX4, INDX1,DT,T,T1, T2,8IGN,DR1 )  02530 

510  CONTINUE  02540 

515  K-I+l  02550 

DO  520  L-1,8  02560 

T(J,K,L)-T4(1,L)  02570 


520  CONTINUE 
1000  CONTINUE 
SIGN— 1.0 

IF< I— N  )1985 ,  599 , 604 
C  INITIAL  REFLECTED  CONDITIONS 

599  Ql(l,N1.7)-FR/DRl**(1.0+ALFA/2.0) 

Ql( 1,N1,1 )-AUA*Ql( 1 , Nl , 7  ) 

Ql(  1,N1, 2  )— S  IGN*Q1(  1 ,  N1 , 7  ) 

Ql(  1,N1, 3 )-SIGN*FR*( 1 . O+ALTA/2 . 0 )/DRl**( 2 . 0+ALFA/2 • 0 ) 
Ql( 1 , N1 , 5 )-ALFA*FR/SQRT(  DR1 ) 

DO  600  J-2,INDX4 

Ql( J,N1,7  )-FR/SQRT(  DR1 ) 

Ql( J, Nl, 1 )-ALTA*Ql<  J , N1 , 7 ) 

Ql(  J,N1, 4 )-ALFA*Ql(  J, Nl , 7 ) 

Ql(  J,  Nl ,  J  )■•— SIGN*Q1(  J, Nl , 7  ) 

Ql(  J , Nl , 3  )-0 . 5 •SIGN*FR/DR1 * *1 . 5 

600  CONTINUE 

DO  602  L-1,8 

Q4(  1 ,  L )“Q1(  1 , Ml , L ) 

DO  602  IH1.N1 
QJ(1,M,L)-Q4<1,L) 

602  CONTINUE 

DO  603  J-1.INDX4 
DO  603  X-1,INDX1 
DO  603  Is*  1,9 
603  Q< J,K,L)-Q1( J,X,L) 

GO  TO  4000 
604  IR-I-N 
KW-N1-IR 
DO  606  L-1,8 
Q4(3.L)-Q4(2,L) 

Q4(2,L)-Q4(1,L) 

606  CONTINUE 

R-FL0AT( 2*N— I )*DT+DRO 

Q4(  1,7 )-rR/R«*(  1 . 0+ALFA*0 . 5  > 

Q4(1,1)-ALFA*Q4<1.7) 

Q4(  1 . 2  )— SIGN*Q4<  1,7) 

Q4< 1 , 3  )-FR*SIGN*( 1 . 0+ALFA*0 . 5 )/R**( 2 . 0+0 . 5 «ALFA  ) 

Q4(  1 , 5 )-FR*ALFA/R»  *0 . 5 
Q4<1.4)-0. 

Q4(l,6)-0. 

Q4(l,8)-0. 

DO  3000  JM-2 , IC 
J-I+4-JM 
DMK)D(  JM+N,  2  )+2 
Z-FL0AT( J-l )*DT 
Jl-I-N+1 

J2«2+5Q*T< FLOAT ( I *I-N*N ) ) 
ir< J-Jl >640,630,610 
610  IF( J.LT.J2)G0  TO  620 

K-Nl 

R-DR1 


02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 

02840 

02850 

02860 

02870 

02880 

02690 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 

03050 

03060 

03070 

03060 

03090 


'\V  •  O' 
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FB— T(J,N1,7)  03100 

CALL  LOADED( DRO, INDX4, INDX1 , DT, Q, Q1 , Q2 , SIC2J,  DR1  )  03110 

IF{  IR.EQ.l )G0  TO  614  03120 

00  612  KR-2,IR  03130 

K-N-ICR+2  03140 

R- FLOAT ( K ) *DT— DT+DRO  03150 

CALL  GENER<  DRO, INDX4, INDX1, DT ,Q,Q1,Q2, SIGN ,DR1)  03160 

612  CONTINUE  03170 

614  K-KW  03160 

R-FLOAT( K-l )* DT+DRO  03190 

CALL  WAVE( DRO, INDX4, INDX1 , Q , SIGN , FR )  03200 

DO  616  K-KW,N1  03210 

DO  616  JJ-J2 , INDX4  03220 

DO  616  L-1,8  03230 

Q<JJ,K,L)-Q<IB,K,L)  03240 

616  CONTINUE  03250 

DO  618  L-1,8  03260 

DO  617  H-1,N1  03270 

617  QJ(2,M,L)-QJ<1,M,L)  03280 

QJ(  1 , 1 ,  L  )-Q(  J2 ,N1,L )  03290 

618  CONTINUE  03300 

DO  619  JJ— 2 . J2  03310 

DO  619  LL-1,8  03320 

619  Q( JJ, KW, LL )— Q( IB , KW, LL )  03330 

CALL  RBOUND( DRO , INDX4, INDX1,DT,Q,Q1, Q2 , Q4, QJ, Jl. SIGN. T,ZA,N1,DR1)  03340 
GO  TO  3000  03350 

620  IF(  IM . EQ . 2 )GO  TO  622  03360 

K-Nl  03370 

R-DR1  03380 

AJH-1.0+FL0AT<I*I-N*N-(  J-l)«< J-l))/FLQATv  7*(I-N))  03390 

M-AJM  03400 

DO  624  L-1,8  03410 

624  Q(  J,K.L)-(AJH-FLOAT(M)  ) *QJ(  1 ,  M+l , ',  +( FLOAT ( M+l )— AJM ) *QJ(  1 ,  M,  L  )  03420 

622  DO  629  KR-IM.IR.2  03430 

K-N-KR+2  03440 

R-FL0AT(  K-l ) * DT+DRO  03450 

LM-(  J-1)«*2-I»I+(2*N-K+1)**2  03460 

IF(  LM . GT . 0 )G0  TO  626  03470 

CALL  RINTER( Q, QJ, Q4, INDX4, INDX1 , ZA, N1 )  03480 

GO  TO  629  03490 

626  DO  625  L-1,8  03500 

Q(  J,K,  L )— Q( IB,K, L )  03510 

625  CONTINUE  03520 

629  CONTINUE  03530 

GO  TO  3000  03540 

630  K-Nl  03550 

R-DR1  03560 

DO  633  L-1,8  03570 

Q<J,K,L)-QJ(1,N1,L)  03580 

Q3(  N1 ,  L  )— Q(  J ,  K,  L )  03590 

633  CONTINUE  03600 

IF( IR. LE . 2 )GO  TO  3000  03610 
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00  636  ICR- 3 , IR,  2  03620 

K-N-KR+2  03630 

LM-<  J-1)**2-I*I+(2»N-K+1)**2  03640 

IF(  LM.GT .  0  )GO  TO  634  036S0 

CALL  RINTER( Q, QJ, Q4, INDX4, INDX1, ZA, N1 )  03660 

GO  TO  636  03670 

634  00  635  L-1,8  03680 

Q{  J,K,L)-Q< IB,K,L)  03680 

635  CONTINUE  03700 

636  CONTINUE  03710 

GO  TO  3000  03720 

640  IF(J.EQ.1)G0  TO  700  03730 

IF( IM.EQ.2 )GO  TO  641  03740 

K-Nl  03750 

R-DR1  03760 

FB— T(J,N1,7)  03770 

FRZ-- T(  J,N1,8)  03780 

CALL  LOAD1(DR0, INDX4, INDX1 , DT, Q , Ql , Q2 , SIGN ,DR1 , FRZ )  03790 

IF(  IR.LE . 2 )GO  TO  3000  03800 

641  DO  649  KR-IM,IR,2  03810 

K-N-KR+2  I  03820 

R-FLOAT(  JC-l ) 'DT+DRQ  03830 

U*-( J-1)**2-I«I+(2*N-K+1)**2  03840 

LA-( J-l )**2-( I-N  )**2+<  N-K+l )**2  03850 

ML-J+2*N-K-I  03860 

IF( LM.GT. 0 )G0  TO  647  03870 

IF( LA.GT.O )GO  TO  646  03880 

IF(  ML )642 ,643,645  03890 

642  CALL  GENER1( DRO, INDX4, INDX1 , DT, Q , Q1 , Q2 , SICTl, DR1 )  03900 

GO  TO  649  03910 

643  CALL  DIAG(  DRO, INDX4, INDX1,DT, Q, Ql, Q2 ,Q4, SIGN, DR1 )  03920 

DO  644  L-1,8  03930 

Q3(K,L)-Q(J,K,L)  03940 

644  CONTINUE  03950 

GO  TO  649  03960 

645  CALL  GINTER( DRO, INDX4, INDX1 , DT, Q3 , Q4, Q, 5IGN,DR1/N1 )  03970 

GO  TO  649  03980 

646  CALL  RINTER( Q,QJ, Q4, INDX4, INDX1 , ZA, N1 )  03990 

GO  TO  649  04000 

647  DO  648  L*l,8  04010 

Q< J,K,L)-Q(IB,K,L)  04020 

648  CONTINUE  04030 

649  CONTINUE  04040 

GO  TO  3000  04050 

700  IF( IM.EQ. 2 )G0  TO  705  04060 

K-Nl  04070 

R-DR1  04080 

FB— Tl(  J,N1,7  )  04090 

CALL  B0AX1{ DRO, INDX4 , INDX1 , DT, Q, Ql , Q2 , SIGN.DR1 )  04100 

705  IF(IR.LE.2)GO  TO  715  04110 

DO  710  KR-IM,IR,2  04120 

K-N-KR+2  04130 


u  u 
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R-FLOAT( K-l ) 'DT+DRO 

CALL  FREE  ( DRO, INDX4, INDX1 , DT, Q,Q1, Q2 , SIOJ, DR1 ) 

710  CONTINUE 
715  1C-KW 

DO  720  L-1,6 
Q(  <7,  X,  L  )— Q4(  1  *  L  ) 

720  CONTINUE 
3000  CONTINUE 
4000  CONTINUE 
1985  CONTINUE 

DO  1975  J-1,INDX4 
DO  1975  L-1,8 
DO  1970  X«1,IA1 

1970  TOTALf  J,X,L)-Q(  J ,K,L)+T{  J,K,L) 

IF(I.NE.2*N)GO  TO  1975 

TOTAL( J , 1 , L )-TOTAL(  J , 1 , L )+TT(  J , L ) 

1975  CONTINUE 

fAT.T.  RESULT(  RNE ,  DRO ,  DR1 ,  DT ,  I ,  FF ,  INDX4 ,  INDX1 ,  TOTAL , T1 , I J  ,N1 ) 
DO  1980  J-l , INDX4 
DO  1980  L-1,8 
DO  198C  K— 1,  IA1 
T2(  CT,K,L)“ Tl(  J,K,L) 

T1(J,K,L)-T(J,K.L) 

Q2( J,K.L)-Q1( J.K.L) 

Q1(J,K,L)-Q<J.K,L) 

1980  CONTINUE 
2000  CONTINUE 
RETURN 
END 


04140 

04150 

04160 

04170 

04180 

04190 

04200 

04210 

04220 

04230 

04240 

04250 

04260 

04270 

04280 

04290 

04300 

04310 

04320 

04330 

04340 

04350 

04360 

04370 

04380 

04390 

04400 

04410 

04420 

04430 


04440 

SUBROUTINE  AMAT( DRO , INDX4 , INDX1 , DT , T, T1 , T2 , A, SIGN , DR1 )  04450 

04460 


’IT****************  ****»***********< 

►*04470 

c 

PURPOSE:  TO  CALCULATE  THE  MATRIX 

AND  VECTOR  BASED  ON  MATRIX  2 

*04480 

c 

*04490 

c 

COLUMNS  1  TO  8  OF  A(II,JJ)  REPRESENT  THE  MATRIX  WHILE  A(II,9)  IS 

*04500 

c 

THE  COLUMN  VECTOR  SUCH  THAT: 

*04510 

c 

A( 1 , 9 )—  [A2] 

A( 5 , 9 )—  [A6] 

*04520 

c 

A(  2 , 9  )—  A9 

A<6,9)-  [Al] 

*04530 

c 

o 

a 

■ 

a% 

ro 

►w 

< 

A(  7 , 9 )—  [A5] 

*04540 

c 

A( 4, 9 A12 

A(  8 , 9 )—  [A3] 

*04550 

c 

04560 

COMMON/ ALL/ I , TOW, R,  Z,  X,  J, DT5 , ALFA, BETA, BETA2 , G2, BO, CBA, CABA,PIE5 

,N04570 

COMMON/JU/B1 , B2 , B3 , B5 , B6 ,  B9 

04580 

COMMON/FO/FF , FB , FR 

04590 

DIMENSION  T( INDX4, INDX1 , 8 ) , Tl(  INDX4, INDX1 , 8 ) , T2(  INDX4, INDX1 , 8 ) 

04600 

DIMENSION  A( 8 , 9  ) 

04610 

F-FF 

04620 

IF(  SIGN . EQ . -1 . 0  )F-FR 

04630 

DO  600  11-1,8 

04640 

DO  600  JJ-1,9 

04650 
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A(II,JJ)-0.0  04660 

600  CONTINUE  04670 

C  04660 

C  CALCULATING  THE  MATRIX  046*0 

C  04700 

A(  1 , 1 )“B2/R  04710 

A(  1 , 2 )-l . -2 . «ALFA*B2/R  04720 

A(l,4)-B2/R  04730 

A( 1 , 7  )-l . -2 . *B2/R  04740 

C  04750 

ALFA9-B  9  * ALFA  04760 

ALFA9R-ALFA9/R  04770 

A(  2 , 2  )— -ALFA9R  04780 

A(2,3)— B9  04790 

A(  2,6  )— ALFA9  04800 

A(2,7)-l.  04810 

C  04820 

A(  3 , 2  )— ALFA9R  04830 

A(  3 , 3  )— ALFA9  04840 

A<3,4)-1.  04850 

A(  3 , 6  )— B9  04860 

C  04870 

A<4,1)-1.  04880 

A<4,2)«— B9/R  04890 

A(  4,  3  )— ALT A9  04900 

A(  4, 6  )— ALFA9  04910 

C  04920 

A(  5 . 2 )— ALTA*B6/R  04930 

A<5.4)-1.0  04940 

A<  5 , 5  )-l . 0  04950 

A(  5 . 8  )— B6/R  04960 

C  04970 

A(6,l)— Bl/R  04980 

A(6,2)— l.-2.*ALTA*Bl/R  04990 

A(  6, 4)— Bl/R  05000 

A(6,7)-1.+2.*B1/R  05010 

C  05020 

A(  7 , 2 )— ALFA*B5/R  05030 

A( 7 , 4  )“1 . 0+B5/( Z+DRO )  05040 

A( 7 , 5 )“— 1 . 0— ALTA*B5/{  Z+DRO  )  05050 

A(  7, 7  )— B5/(  Z+DRO )  05060 

A(7,8)-B5/R  05070 

C  05080 

A(  8 , 5 )— SIGN*BETA+BETA2 *S3/R  05090 

A<8,8  )-1.0+3.0*SIGN*BETA*B3/R  05100 

C  05110 

C  CALCULATING  THE  VECTOR  05120 

C  05130 

ZIR-Z*Z-TOW’TOW+(  R-DRO ) *(  R-DRO )  05140 

ir ( SIGN . EQ . -1 . 0 )ZIR-Z  *Z-TOW*TOW+<  2 . 0  «DRl-DRO-R ) *«2  05150 

RNEG-K-1  05160 

KP03-K+1  05170 
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JNEG-J-1  031*0 

JPOS-J+1  03190 

C  05200 

IF(XNEG  .EQ.  0)  GO  TO  620  03210 

A( 6, 9 )-( Tl( J.XNEG, 1 )+ALFA*Tl(  J.KNEG, 2 )-Tl( J,KNEG,7  ) )  03220 

+*Bl/< R-DT)+T1<  J.KNEG, 7 )-Tl( J, KNEG, 2 )  03230 

IF(ZIR  .GT.  0.0)  GO  TO  610  03240 

A<  6 , 9 )-A<  6 , 9 )+( Tl( J.KNEG , 4 )+ALFA*Tl( J , KNEG, 2  )-  05250 

+T1(  J.KNEG, 7 ) )*Bl/( R-DT )  05260 

C  03270 

610  CONTINUE  05280 

SRZ-CABA*T1(J,KNEG,8)+CBA*T2(J,K,8)  05290 

UZ-CABA*T1<  J.KNEG, 5  )+CBA*T2(  J.K.5)  05300 

A(  8 , 9 )-SRZ*( 1 . 0-3 . 0*SIQI*BETA*B3/( R-BG ) )+UZ*( -SIGN*BETA-BETA2*B3/  05310 
+( R— BG ) )  05320 

C  05330 

620  CONTINUE  05340 

A( 1/ 9  )-( T1 ( J.XPOS , 7 )+ALFA*Tl( J , KPOS , 2 )-Tl( J, KPOS , 1 ) )  05350 

+*B2/( R+DT )+Tl( J, KPOS , 7 )+Tl( J, KPOS , 2  )  05360 

IF( ZIR  .GT.  0.0)  GO  TO  640  05370 

A(  1 , 9  )-A(  1 , 9  )+B2*(  Tl(  J,  KPOS ,  7  )+ALFA'Tl(  J  .KPOS ,  2  )-  05380 

+T1(  J, KPOS, 4)  )/( R+DT )  05390 

C  05400 

640  CONTINUE  05410 

IP( JNEG  .EQ.  0)  GO  TO  650  05420 

A( 7 , 9  )-Tl( JNEG.K, 4 )-Tl(  JNEG, K, 5 )+B5*ALFA*Tl( JNEG.K, 2  )/R  05430 

++B5*( Tl(  JNEG.K, 7 )-Tl(  JNEG.K, 4 )+ALFA*Tl(  JNEG.K, 5  )  )/( DFO+Z-DT)  05440 

+-B5«T1< JNEG.K, 8 )/R  05450 

C  05460 

650  CONTINUE  05470 

A(  5,9  )-Tl(  JPOS.K,  4)+Tl(  JPOS.K,  5  )+B6*ALFA*Tl(  JPOS.K,  2  )/R  05480 

++B6*T1( JPOS,K,8)/R  05490 

C  05500 

IF(  SIGN  .EQ.  -1  .AND.  K  .EQ.  2*N-I+2)  GO  TO  670  05510 

IF( K  .EQ.  I  .AND.  SIGN  .EQ.  1)  GO  TO  660  05520 

A(  2 , 9  )-T2(  J.K,  7  )+B9*T2(  J,  K,  3  )+ALFA9*T2(  J,K,  2  )/R+ALFA9*T2(  J,K,  6  )  05530 

A(  3 , 9 )-T2<  J, K, 4 )+B9*T2(  J.K, 6 )+ALFA9*T2(  J.K, 2 )/R+ALFA9*T2(  J.K, 3 )  05540 

A(  4, 9 )-T2(  J.K, 1 )+B9*T2(  J.K, 2 )/R+ALFA9*T2( J.K, 3  )+ALFA9*T2( J.K, 6 )  05550 

RETURN  05560 

C  05570 

660  8-B2  05580 

GO  TO  680  05590 

670  B-Bl  05600 

680  CON-F/R**1.5  05610 

R2«R+SIGN*DT/2.0  05620 

AXE-SIGN*F*B*( 1 . 0-2 . 0 'ALFA )/R2  **1 . 5  05630 

A<  2,9)-C0N*R+SIGN*0.5*B9*C0N-SIGN*ALFA*B9*C0N  05640 

A( 3,9)-ALFA*CON*F  a . 5*SIGN*B9*ALFA*CON  05650 

A(  4, 9  )-ALFA*CON*RfO . 5  *SIGW*B9*ALFA*CON-CON*SIGN*B9  05660 

IF( SIGN  .EQ.  1)  A(1,9)-AXE  05670 

IF( SIGN  .EQ.  -1)  A<6,9)-AXE  05680 

RETURN  05690 


no  ooooooo 


?• 

END  OS 700 

C  05710 

c«.**..**«. ...•.***»«**«*****»************0S720 
C  SUBROUTINES  RINT  AND  CZNT  ARE  USED  TO  ADJUST  MATRIX  2  FOR  EACH  05720 

C  CATEGORY  OF  POINTS  05740 

£**«****»*»»«»»*»»**•«»**«»************** *******************************05750 
C  05760 

SUBROUTINE  RINT( A, N,M, LA, LB )  05770 

C  05750 

C  INTERCHANGE  ROWS  LA  AND  LB  05790 

C  05500 

DIMENSION  A(N,M)  05510 

DO  10  II-1,M  05520 

SAVE“A( LA , 1 1 )  05530 

A(LA,II)-A(LB,II)  05540 

10  A(L8,II)-SAVE  05550 

RETURN  0SS60 

END  05570 

C  05SS0 

SUBROUTINE  CINT( A,N,M, LA, LB)  05590 

C  05900 

C  INTERCHANGE  COLUMNS  LA  AND  LB  05910 

C  05920 

DIMENSION  A(N,M)  05930 

DO  10  II-l.N  05940 

SAVE-A< I I , LA )  05950 

A(II,LA)-A(II,LB)  05960 

10  A(II,LB)-SAVE  05970 

RETURN  05950 

END  05990 

06000 
06010 

SUBROUTINE  MAVE(  DRO , INDX4 , INDX1 , T , SIGN , F )  06020 

06030 

r****«»**»***»» »**»*****#»* *»*****#»**»*»»**»»**»»»**»****»»******»0604O 
INCIDENT  LEADING  WAVE  POINTS  —  G —  06Q50 

r******** *********** ***********************************************06060 

06070 

COMMON/ALL/I , TOW, R, Z , K, J, DT5 , ALFA, BETA, BETA2 , G2 , BG, CBA, CABA, PIES , N06080 
COMMON/FO/FF , FB , FR  06090 

DIMENSION  T( INDX4, INDX1, 8 )  06100 

T( J,R,7)-F/R**0.5  06110 

T( J,K,1)-ALFA*T(J,K,7)  06120 

T( J,K,2)— SIGN*T<J,K,7)  06130 

T( J,K,3)-F*SIGN*0.5/R**1.5  06140 

T<  J,Jt,4)-ALFA*T<  J,K,7)  .  06150 

RETURN  06160 

END  06170 

06150 
06190 

SUBROUTINE  B0AX1( DRO, INDX4, INDX1, DT,T,T1,T2 , SIGN, DR1 )  06200 

C  06210 


o  o 


?s 


C****************** ******** *********************************************06220 
C  REGULAR  CORNER  POINT  —  D  —  06230 

C*******************  ************  ****************************************06260 
C  06260 

COMHON/ALL/I ,  TOW,  R,  2 ,  X ,  J ,  DT5 ,  ALFA,  BETA,  BETA2 ,  G2 ,  M2 ,  CM,  CU6,  PIES  ,  N06260 
COMMON/FO/FP , FB , PR  06270 

C0MHQN/AA/B1,B2.B3,B5,B6,B9  06260 

DIMENSION  T( INDX4, INDX1, 8 ) , Tl( INDX4, INDX1, 8  ),T2( IMDX4, INDX1, 8 )  06260 

DIMENSION  A( 8 , 9 ) , AB( 5,5), COZ(  5 )  06300 

F-FF  06310 

IP( SIGN .EQ. — 1 . 0 )F— PB  06320 

5  CALL  AMAT(  DRO, INDX4, INDX1, DT, T,T1 , T2 , A, SIGN, DRl )  06330 

CALL  CINT(A,8,9,4,6)  06360 

IP( SIGN.EQ.— 1 >0 )CALL  RINT( A, B, 9, 1, 6 )  06350 

DO  15  11-1,5  06360 

DO  10  JJ-1,5  06370 

10  AB(  II , JJ )— A(  II , JJ )  06380 

15  COE(  II )— A(  11,9)  06390 

T(  J,K,7 )— P  06600 

T(  J,K, 4  )— 0. 0  06610 

T(  J,K, 8 )— 0 .0  06420 

COE(  1 )— C0E(  1  )-<  1 . 0-2 . 0*B2/R ) *T(  J,R,  7  )  06430 

IF( SIGN . EQ . -1 . 0 )CO£( 1 )-A(  1 , 9 )-( 1 . 0+2 . 0*B1/R )*T( J,K,7  )  06440 

COE(  2  )— COE(  2  )-T(  J,K,  7  )  06450 

CALL  MATINV(  AB,  COE,  5 , 5 , 1 ,  DET,  ICS  )  06460 

IP(KS  .EQ.  1)  GO  TO  20  06470 

T< J,K,1)-C0E(1)  06480 

T< J.K.2)-COE<2)  06490 

T(  J,K, 3 )— COE( 3  )  06500 

T(  J,K, 5 )— COE( 5 )  06510 

T(  J,K, 6 )— COE( 4 )  06520 

RETURN  06530 

20  WRITE  (1,25)  06540 

25  FORMAT(  » SINGULAR  AT  REGULAR  CORNER  POINT  —  D  — *  )  06550 

STOP  06560 

END  06570 

06580 
06590 

SUBROUTINE  FKEE( DRO , INDX4 , INDX1 , DT, T, T1 , T2 , SIGN, DRl )  06600 

C  06610 

C*****»*»*»****»**********»*********************************************05620 
C  REGULAR  PREE  SURFACE  POINT  —  C  —  06630 

C***»***************************»*****«************************»**«*****06640 
C  06650 

COMMON/ALL/ I , TOW , R , Z , K , J , DT5 , ALFA , BETA , BETA2 , G2 , BG , CBA , CABA , PIZ5 , N06660 
C0MM0N/AA/B1 , B2 , B3 , B5 , B6 , B9  06670 

DIMENSION  T( INDX4, INDX1, 8 ),T1(  INDX4, INDX1, 8 ),T2( INDX4 , IND3C1 , 8 )  06680 

DIMENSION  A( 8 , 9 ) , AB( 6,6), COE( 6 )  06690 

10  CALL  AMAT( DRO, INDX4, INDX1, DT,T,T1,T2, A, SIGN, DRl )  06700 

CALL  CINT( A, 8, 9, 4, 7  )  06710 

DO  7  11-1,6  06720 

DO  6  JJ-1,6  06730 


u  u 


•0 


6  AB( IT, JJ)— A( II, JJ) 

7  C0E(  IZ  )— A(  11,9) 

T( J,X,4)-0.0 

T(  J,K,8 )— 0.0 

CALL  HATINV(AB, COE, 6,6,1, D£T,KS  ) 

IF(XS.EQ.l)  GO  TO  4 
T(J,X,1)-C0E(1) 

T(J,X,2)-COE(2) 

T(J,X,3)-COE(3) 

T(J,X,7)-C0E<4) 

T( J,K, 5 )— COE(  5 ) 

T(J,X,6)-C0E(6) 

RETURN 

4  WRITE  (1,5) 

5  FORMAT ( 'SINGULAR  AT  REGULAR  FREE  SURFACE  POINT 
STOP 

END 


SUBROUTINE  LEAD< DRO , INDX4 , INDX1 ,DT,T,T1,T2, 5101 , DR1 ) 


LEADING  LOADED  BOUNDARY  POINT  (TWO  DIMENSIONAL)  —  J  — 


COMMON/ALL/I . TOW, R, Z , K, J , DT5 , ALFA, BETA, BETA2 , G2 , BG , CBA, CABA, 
C0MM0N/AA/B1 , B2 , B3 , B5 , B6 , B9 
COMHON/FO/FF , FB , FR 

DIMENSION  T( INDX4, INDX1, 8 ),T1(  INDX4, INDX1, 8 ),T2( INDX4, INDX1, 
DIMENSION  A( 8 , 9 ) , AB(  5,5 ),COE( 5 ) 

IF(K.EQ.I)  B9-DT5 

CALL  AMAT( DRO, INDX4, INDX1 , DT, T, T1 , T2 , A, SIGN , DR1 ) 

CALL  CINT( A, 8, 9, 2, 6) 

CALL  RINT( A, 8, 9, 7,1) 

DO  7  11-1,5 
DO  6  JJ— 1 , 5 

6  AB(  II ,  JJ )— A(  II ,  JJ ) 

7  COE( II )— A(  11,9) 

"VJ,X,2)-T(I+2,1,2) 

<',K,  7  )— T(  1+2 ,1,7) 

Tv J,K,8)— 0.0 

CQE( 1 )— COE( 1  )+B5«T( J,K, 7 )/( Z+DRO )+B5*ALFA*T( J,K, 2 )/R 

COE( 2 )— COE( 2 )-T( J,R, 7 )+B9*ALFA*T( J, X, 2  )/R 

COE( 3 )— COE( 3 )+B9*ALFA*T(  J,R, 2 )/R 

COE( 4)— COE( 4)+B9*T(  J,X» 2 )/R 

COE( 5  )— COE( 5  )+B6*ALFA*T<  J,K, 2 )/R 

CALL  MATINV(AB,C0E,S,5,1,DET,XS) 

IF(KS.EQ.l)  GO  TO  3 
T( J,K,1)-C0E(1) 

T(J,X,3)-COE(3) 

T(  J,K,  4 )— COE(  4  ) 

T(  J,K,  5  )-COE(  5  ) 


06740 
06790 
06760 
06770 
06760 
06790 
06900 
06610 
06620 
06630 
06640 
066S0 
06660 
06670 
06660 
06690 
06900 
06910 
06920 
06930 
06940 
******06950 
06960 
******06970 
06960 
PIES , N06990 
07000 
07010 
8 )  07020 

07030 
07040 
07050 
07060 
07070 
07060 
07090 
07100 
07110 
07120 
07130 
07140 
07150 
07160 
07170 
07160 
07190 
07200 
07210 
07220 
07230 
07240 
07250 


f 


•1 


T(  J,  X,  4  )— COE(  2  )  07 2 SO 

B9-DT  07270 

RETURN  072*0 

3  MUTE  (1,5  )  072*0 

5  FORKAT( ’SINGULAR  AT  LEADING  LOADED  BOUNDARY  2-D  POINT  -J-  • )  07300 

STOP  07310 

END  07320 

C  07330 

C  07340 

SUBROUTINE  LOADED* DR0,INDX4,INDX1,DT,T,T1,T2, SIGN, DR1)  07350 

C  07340 

C*«»*«******»*******»****************»******************»************»**07370 
C  REGULAR  LOADED  BOUNDARY  POINT  (ONE  DIMENSIONAL)  —  F  —  07380 

C* *•»*****»**»****»« »****»********************************************»*07390 
C  07400 

COMMON/ALL/ I , TOW , R , Z , X , J , DT5 , ALFA , BETA , BETA2 , G2 , BG , CBA , CABA , PIE5 , M07410 
COMMON/AA/B1 , B2 , B3 , B5 , B6 , B9  07420 

COMMQN/FO/FF , FB , FR  07430 

DIMENSION  T(  INDX4, INDX1, 8 ),T1(  INDX4, INDX1, 8  )  ,T2( INDX4, IMDX1, 8  )  07440 

DIMENSION  A( 8 , 9 ) , AB(  4,  4 ) , COE( 4  )  07450 

r-PT  07440 

IF( SIGN.EQ.~1 .0  )P“FB  07470 

IF(K.EQ.I  .AND.  SIGN  .EQ.  1)  GO  TO  2  07440 

IF( SIGN  .EQ.  -1  .AND.  X  .EQ.  2*N-I42)  GO  TO  8  07490 

GO  TO  5  07500 

2  B2-B1/2 .  07510 

B9-B1  07520 

GO  TO  5  07530 

8  B9-B1  07540 

Bl-Bl/2.0  07550 

5  CALL  AMAT( DRQ, INDX4, INDX1, DT,T,T1,T2 , A, 3IGN.DR1 )  07540 

IF( SIGN.EQ. -1 . 0  )CALL  RINT( A, 8, 9, 1, 6 )  07570 

DO  7  11-1,4  075*0 

DO  6  JJ-1,4  07590 

6  AB( II , JJ)— A( II , JJ)  07400 

7  COE( II )— A(  11,9)  07410 

T( J,K,5  )-0.0  07420 

T(J,K.6)-0.0  07430 

T(J,K,7)-F  07440 

T( J,K,8)— 0.0  07450 

AB( 1,2  )-AB( 1 , 2 )+ALFA*B2/R  07440 

AB( 1,4  )— 0 .  07470 

COE( 1 )— COE( 1 )-(  1 . 0-2 . 0  *B2/R ) »T( J , X , 7 )  07480 

IF(  SIGN . EQ .  -1 . 0  )COE(  1  )-A(  1 , 9  )-( 1 . 0+2 . 0*B1/R )*T(  J,X,  7  )  074*0 

COE(  2  )-COE(  2  )— T(  J ,  X ,  7  )  07700 

CALL  MATINV(AB,C0E,4,4,1,DET,KS)  07710 

IF(XS.EQ.l)  GO  TO  3  07720 

DO  9  L— 1, 4  07730 

9  T(  J,  X,  L )— COE(  L )  07740 

B1-DT5  07750 

B2-B1  07740 

B9— 2 . *B1  07770 


o  o  o  o  n  no 
*  * 


•2 


C 

C 

c 

c 


return  077*0 

3  WRITE  (1.4)  077*0 

4  FORMAT*  'SINGULAR  AT  REGULAR  LOADED  BOUNDARY  1-D  POINT  -  F  -*)  07*00 

STOP  07*10 

END  07*20 

07*30 

07*40 

SUBROUTINE  LQAD1( DRO, INDX4, INDX1 , DT, T, Tl, T2, SIGN, DR1.FRZ )  07*90 

07IC0 

,.,,***..**.****«*******»****i.***»*»**»****>*«*»*************»*«***»*07t70 
REGULAR  LOADED  BOUNDARY  POINT  (TWO  DIMENSIONAL)  —  B  —  07BB0 

'***"*""»***""""  """""""""""""""""""""""07*90 

07*00 


COMMON/ALL/I  ,  TOW,  R,  Z ,  K,  J,  DT5 ,  ALPA,  BETA,  BETA2 ,  G2 ,  BG,  CBA,  CABA,  PIES ,1107910 


COMMON/AA/B1 , B2 , B3 , B5 , B6 , B9  07*20 

CQWHON/FO/FF,FB,FR  07*30 

DIMENSION  T( INDX4, INDX1, 8 ), Tl( INDX4, INDX1, 8 ) ,T2( INDQC4,  INDXl,*  )  07*40 

DIMENSION  A( 8, 9 ), AB( 6,6), COE( 6  )  07990 

TmYT  07940 

IF( SIGN.EQ.— 1 . 0  )P»PB  07970 

CALL  AMAT( DRO, INDX4, INDXl.DT, T,T1,T2, A, SIGN.DR1 )  079*0 

IF(8IGN.EQ.1.0)CALL  RINT( A, 8 , 9, 6, 7 )  07990 

IF( SIGN.EQ.— 1 . 0 )CALL  RINT( A, 8, 9, 1, 7  )  0*000 

DO  7  II-1.6  0*010 

DO  6  JJ-1,6  0*020 

6  AB(II,JJ)-A(II,JJ)  0*030 

7  C0E(II)-A(II,9)  0*040 

T(J,X,7)-F  0*090 

T( J,K, 8 )«0 .S'( 1 .0— SIGN )*FRZ  0*040 

COE(  1 )-COE< 1 )-( 1 . 0-2 . 0*82/R)«T( J,R, 7  )  0*070 

IF( SIGN.EQ .-1.0 )COE(  1 )-A< 1 , 9 )+BS/( DRO+Z ) *T( J,X, 7 )  0*080 

+  — B5/R*T< J.X.8)  0*090 

COE(  2  )”COE(  2  )— T(  J,K,  7  )  0*100 

COE<  6 )-COE<  6  )+B5 «T(  J,  X,  7 )/( Z+DRO )  08110 

IF(  SIGN.EQ .-1.0  )COE(  6  )-A(  6 , 9  )-(  1 . 0+2 . 0*B1  )*T(  J,K, 7  )  0*120 

IF( SIGN.EQ .-1.0 )COE(  5 )-COE(  5 )+B6/R*T( J,X, 8  )  0*130 

CALL  MATINV( AB , COE , 6 , 6, 1, DET, KS )  0*140 

IF(KS.EQ.l)  GO  TO  3  08190 

DO  9  L-1,6  0*140 

9  T(J,X,L)-COE(L)  0*170 

RETURN  0*1*0 

3  WRITE  (1,4)  0*190 

4  FORMAT ( 'SINGULAR  AT  REGULAR  LOADED  BOUNDARY  2-D  POINT  -  B  -  * )  08200 

STOP  0*210 

END  0*220 

08230 

0*240 

SUBROUTINE  GENER< DRO, INDX4, INDX1,DT,T,T1, T2, SIGN, DR1)  0*290 

0*290 

REGULAR  INNER  ONE  DIMENSIONAL  POINTS  —  E  —  0*2*0 

'"""""""""""""""""'"""""""""""""""•"08290 


o  o 


c  09300 

COMHON/ALL/I .  TOW,  R,  Z,X,  J,  DT5  ,ALTA,  SETA,  BETA2 ,  G2 .  BG,CBA,  CABA,  PIE5 ,  M0S310 
COMMON/AA/B1,B2,B3,B5,B6,B9  09320 

DIMENSION  T( INDX4, INDX1, 8 ),T1( ZNDX4, INDX1, 8 )  ,T2( INDX4, IM0X1, 8 )  09330 

DIMENSION  A( 8, 9 ),AB( 5, 5 ),COE< 5 )  09340 

ZP( SIGN . EQ . 1 • 0 . AND . K . EQ . I )G0  TO  2  093S0 

ZP( SZGM . EQ . — 1 . 0 . AND .X . ZQ . 2  *N— 1+2 )G0  TO  8  09360 

00  TO  5  09370 

2  B2-B1/2.0  09390 

B9-B1  09390 

GO  TO  5  09400 

8  B9-B1  08410 

Bl-Bl/2.0  '8*20 

5  CALL  AMAT( DRO, INDX4, INDX1 , DT, T, Tl, T2 , A, SIGN, DR1  )  08430 

CALL  CINT(A,8,9,5,7)  08440 

CATJ.  RINT(  A, 8, 9, 5, 6 )  084S0 

DO  7  11-1,5  08460 

DO  6  JJ-1,5  08470 

6  AB(II,JJ)-A(II,JJ)  08490 

7  COE(  ZZ  )— A(  11,9)  08490 

AB(1,2)-AB(1.2)+ALPA»B2/R  08500 

AB(l,*)-0.  08510 

AB(1,5)-AB(1,5)+B2/R  08520 

AB( 5/2 )-AB( 5 , 2 )+ALTA*Bl/R  08530 

AB(  5,4  )— 0 .  08540 

AB<  5 , 5 )-AB<  5 , 5 )-Bl/R  08550 

CALL  MATUIV<AB,COE,5,5,1.0ET,1C3)  08560 

ir(JCS.EQ.l)  GO  TO  3  08370 

DO  9  L-1,4  08580 

9  T( J,K,L)-COE(L)  08590 

T( J,K, 5  )— 0.0  08600 

T(J,K,6)-0.0  08610 

T(  J.K,7)-C0E(5)  08620 

T(J,X,8)-0.0  08630 

B1-DT5  08640 

B2-B1  08650 

B9-2.0*B1  08660 

RETURN  08670 

3  WRITE  (1,4)  09680 

4  FORMAT ( ’SINGULAR  AT  REGULAR  INNER  ONE  DIMENSIONAL  POINT  -  E  -*)  08690 

STOP  08700 

END  08710 

08720 
08730 

SUBROUTINE  GENERIC DRO, INDX4, ZNDX1, DT,T,T1,T2, SIGN, DR1 )  08740 

C  08750 

£*••**•*•****•••***•**********••*••••************•****••****•••**•***••*00760 
C  REGULAR  INNER  TWO  DIMENSIONAL  POINTS  —  A  —  08770 

C  SOLVE  MATRIX  2  WITHOUT  ALTERATION  08780 

£«*******************»*********«******«******«***********»*«************00790 

C  08900 


COMMON/ALL/ 1 ,  TOW,  R,  Z ,  K,  J ,  DT5 ,  ALFA ,  BETA ,  BETA2 ,  G2 ,  BG ,  CBA,  CABA,  PIES ,  N08810 


oouuouuu  o  o 


•4 


COMI0N/AA/B1 ,  B2 ,  B3 ,  B5 ,  B6 ,  B9  04420 

DIMENSION  T(  INDX4, INDXI,  8  )  ,T1(  INDX4, INDXI, 8  ),T2(  ZMDX4, INDXI, 4  )  04*30 

DIMENSION  A( 8 , 9 ),AB( 8, 8  ) , COE( 8  )  04*40 

CALL  AMAT( DRO, XNDX4, INDXI, DT,T,T1,T2, A, SIGH, DR1)  04480 

DO  7  11-1,8  04440 

DO  6  JJ-1 , 8  04470 

6  AB(II,JJ)-A(II,JJ)  04440 

7  COE(II)-A(II,9)  04440 

CALL  MATINV(AB,COE, 8, 8,1,DET,XS )  04900 

ZP(XS.EQ.l)  GO  TO  3  04410 

DO  9  L-1,8  04420 

9  T( J , X, L )-COE( L )  04930 

RETORN  08940 

3  WRITE  (1.4)  08950 

4  FORMAT( * SINGULAR  AT  REGULAR  INNER  TWO  DIMENSIONAL  POINT  -  A  — * )  04960 

STOP  08970 

END  04940 

08990 

09000 

SUBROUTINE  GINTER(  DRO, INDX4,  INDXI, DT,T3,T4,T, SIGN, OKI, HI )  09010 

09020 

.•»***«»**********«.*»*******»******************«**********************09030 
LEADING  INNER  TWO  DIMENSIONAL  POINT  —  X  —  09040 

CALCULATED  BY  INTERPOLATION  ALONG  THE  REELECTED  LONGITUDINAL  WAVE  09050 

09070 

COMMON/ALL/I , TOW, R, Z. X, J, DT5 , ALFA, BETA, BETA2 , G2 , BG, CBA, CABA, PZES , R09080 
DIMENSION  T( INDX4, INDXI, 8 ),T3(  INDXI, 0 ),T4( 3,8)  09090 

Y-TOW-<  R-DRO )  09100 

IP<  SIGN. EQ. -1.0 )Y— TOW-2 . 0  *DRl+DRO+R  09110 

X-( Z*Z/Y+Y )/2 .  09120 

RX-(X-Y)/Z  09130 

TETA1-ATAN(RX)/PIE5  09140 

TETA-1 . -TETA1  09150 

RE-< TOW-X )/DT+l .  09160 

IF(  SIGN . EQ . -1 . 0 )RX-2  *N-I+1+X/DT  09170 

XA-IFIX<RK)  09180 

KB-KA+1  09190 

C2-RX-FL0AT(KA)  09200 

C1-1.-C2  09210 

DO  154  L-1,8  09220 

154  T(  J,X,L)-TETA*<C1*T3<XA,M+C2*T3(EB,L))+TETA1*T4(1,L)  09230 

RETURN  09240 

END  09250 

09260 

09270 

SUBROUTINE  DIAG( DRO, XNDX4, INDXI, DT,T,T1,T2,T4, SIGN, DR1)  09280 

C  09290 

C************************** ************************************* ********09300 
C  INTERMEDIARY  TWO  DIMENSIONAL  POINT  —  L  —  09310 

C***********************»******************,»*«*,r**»******»*********»***09320 
C  09330 


!  . 
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r 


i 

i 

r 


•5 


COMMON/ALL/I, TOW, R,Z,K,J,DTS, ALFA, BETA, BETA2,G2,BG,CBA,CABA,PXE5,M09340 


COMMON/AA/B1 , B2 , B3 , B5 , B6 , B9  09350 

DIMENSION  T( TNDX4, INDX1, 8 ),T1( INDX4, IKDX1, 8  ),T2( XNDX4, XM09Q, • )  09360 

DIMENSION  i  9 ) , AB{  8,8), COE(  B ) , E( B ) , T4( 3,8)  09370 

B1-OT5  09390 

B2-Z*DT/(2.*(Z+2.*DT>)  09390 

IF(SIGN.IQ. 1.0)00  TO  5  09400 

BT-B1  0943.0 

B1-B2  09420 

B2-BT  09430 

5  B3-<  Z+( 1 . -BETA ) *DT-SQRT(  (  DT-BETA*(  Z+DT ) ) *  *2+(  1 . -BETA2 ) *Z**2 ) )  09440 

+/{  2 .  *(  1 . -BETA2  )  )  09450 

B5-DT5  09460 

B6-Z*DT/(2.*(2.*Z+DT>)  09470 

B9-<  Z+DT-SQRT( Z*Z+DT*DT ))/2.  09480 

CALL  AMAT( DRO, XNDX4, XNDX1 ,DT,T, T1,T2 , A, SIGN, DR1  )  09490 

DO  7  11-1,8  09500 

DO  6  JJ-1,8  09510 

6  AB(  XX, JJ)— A(  XX, JJ)  09520 

7  CQE(  IX )— A( XX , 9  )  09530 

R2— R+2 .0*B2  09540 

CALL  EHV{  XNDX4, XNDX1,DT,Z,R2,£,T,T1,T4,B2  )  09550 

COE( 1 )— E( 7 )»< 1 .+B2/R2 )+E(  2 )*( 1 . +ALFA*B2/R2  )-B2*E( 1 )/R2  09560 

++B2»(ALFA«E(2)+E(7)-E(4>)/R2  09570 

Z6— Z+2 . *B6  09590 

CALL  ENV( XNDX4, INDX1, DT, Z6 , R.E, T, Tl, T4, B6 )  09590 

COE( 5  )— E( 4  )+E<  5  )+B6  *ALFA«E( 2 )/R+B6  *E( 8  >/R  09600 

CALL  ENV(  XNDX4, IKDX1 , DT, Z, R, E, T, Tl , T4, B9  )  09610 

COE( 2  )— E( 7  )+B9*<  E( 3 )+ALFA*( E( 2  )/R+E( 6 ) ) )  09620 

COE<  3  )— E( 4  )+B9»( E( 6 )+ALFA*( E<  2 )/R+E( 3 ) )  )  09630 

COE( 4 )— E( 1 )+B9*( E( 2 )/R+ALFA*<  E( 3 )+E<  6  )  )  )  09640 

R3— R-2 . 0*B3*BETA  09650 

CALL  ENV(  INDX4, INDX1 , DT, Z , R3 , E , T, Tl , T4, B3 )  09660 

COE( 8 )— E( 8 )*< 1 .0-SIGN*3 . 0*BETA*B3/R3 )-E( 5 )*( SI(3I*BETA+B3*BETA2/R3  >09670 
CALL  MATXNV(  AB , COE , 8, 8,1,DET,K5  )  09680 

IP(KS  ,EQ.  1)  GO  TO  3  09690 

DO  209  L-1,8  09700 

209  T( J,K,L>— COE(  L)  09710 

B1-DT5  09720 

B2-DT5  09730 

B6-DT5  09740 

B3-G2  09750 

B9-DT  09760 

RETURN  09770 

3  WRITE  (1,4)  09780 

4  FORMAT ( *  SINGULAR  AT  INTERMEDIARY  TWO  DIMENSIONAL  POINT  -  L  — * )  09790 

STOP  09800 

END  09810 

C  09820 

C  09830 

SUBROUTINE  ENV< INDX4, INDX1 , DT, ZL, RL,E,T,T1,T4,BL)  09840 

C  09850 


86 


c********»«**»**«*»*tttttt*»*t»*tt»tt*t*t**«t*t»**tt*Mtt**ttt*t*t*t*«09|(0 

c  viaxiis  or  variables  l  are  calculated  at  the  intersection  of  the  09870 

C  BICHARACTERISTIC  CORVES  FROM  A  POINT  ON  THE  DIAGONAL  AMD  THE  09880 

C«. 

C  09900 

COMMON/ALL/I . TON, R, Z,K,  J, DT5 , ALFA, BETA, BETA2 , G2,BG, CBA, CABA, PIE3 , N09910 
DIMENSION  T{ INDX4 , INDXI , 8 ) , T1  ( INDX4 , INDXI , 8 ) , T4( 3 , 8 ) , E( 8 )  09920 

Cl-2 . 0  *BL/DT  09990 

C2-1.0-C1  09940 

THETA-ATAN(ZL/(ABS<RL-R)+DT))/PIE5  09950 

THETA1-1 . 0— THETA  09960 

DO  10  L-1,8  09970 

E( L )-Cl *<  THETA  »T1<  J , X-l , L ) +THETA1 *T4(  2 , L ) )+  09980 

+C2  *( THETA*T( J+l , K-l , L )+TH£TAl *T4(  1 ,  L  )  )  09990 

10  CONTINUE  10000 

RETURN  10010 

END  10020 

C  10030 

SUBROUTINE  RBOUND(  DRO, INDX4, INDXI, DT,Q,Q1,Q2,Q4, QJ,J1, SIGN, T,ZA,  10040 
+  Ml , DR1 )  10050 

C  INTERMEDIATE  TWO-DIMENSIONAL  POINTS  —  L —  10060 

COMMON/ ALL/ 1 ,  TOW ,  R ,  Z ,  K ,  J ,  DTS ,  ALFA ,  BETA ,  BETA2 ,  G2 ,  BG ,  CBA ,  CABA ,  PIES ,  N10070 
COMMON/ AA/B1 , B2 , B3 , BS , B6 , B9  10080 

COMMON/FO/FF , FB , FR  10090 

DIMENSION  ZA(N1)  10100 

DIMENSION  T(  INDX4 , INDXI ,  8  ) , QJ(  2 , INDXI , 8 )  10110 

DIMENSION  Q( INDX4, INDXI, 8 ),Q1< INDX4, INDXI, 8 ),Q2( INDX4, INDXI, 8  )  10120 

DIMENSION  A( 8 , 9 ) , AB( 6,6), C0£( 6 ) , E(  8  ) , Q4( 3,8)  10130 

R^FLOATC  N ) "DT+DRO  10140 

DO  200  M-1,N1  10150 

ZN-SQRT(  FLOAT (  ( I+N-2*M+2 )*( I-N )  )  )  10160 

Z-ZN*DT  10170 

ZA(M)-ZN  10180 

NZ-ZN  10190 

IF( M.EQ . 1 )G0  TO  200  10200 

QJ(1,M,7)— <<ZN-FL0AT(NZ))*T(NZ+2,N1,7)  10210 

++( FLOATC  NZ+1 )-ZN)*T{  NZ+1, Nl,7 )  )  10220 

QJ( 1 , M, 8 )— ( <  ZN- FLOAT( NZ  ) )  *T(  NZ+2 , N1 , 8  )  10230 

+  +( FLOAT(  NZ+1 )-ZN)*T(  NZ+1,N1, 8 )  )  10240 

Bl-O.25«(TOW-R+DRD-Z**2/(TOW+R-2.0*(M-2)*DT-DRO)  )  10250 

B9-0.5*(T0W-(M-2)*DT-SgRT(Z**2+(R-(M-2)*DT-DR0)**2)  )  10260 

B5-0 . 25 *( TOW+Z-(  M-2 )«DT+C  R-(  M-2 )*DT-DRO )**2/C Z-TOW+C  M-2 )*DT) )  10270 

IF(B5  .GT.  DTS)  B5-DTS  10280 

B6-0 . 25 »C  TOW-Z-C  M-2 ) »DT-(  R-(  M-2 ) 'DT-DRO )**2/( TOW+Z-(  M-2 )*0T ) )  10290 

CALL  AMAT( DRO, INDX4, INDXI, DT,g,gi,Q2, A, SIGN, DR1)  10300 

CALL  RINTC A, 8 , 9, 1, 7 )  10310 

DO  7  11-1,8  10320 

DO  6  JJ-1,8  10330 

6  ABC  II, JJ)™A(  II, JJ)  10340 

7  COE( II )— A( 11,9)  10350 

RA-TOW-C  M-2 ) *DT  10360 

RB— TOW— ( M-l )*DT  10370 


o  o 


87 


TA-ASIN(  DT*SQRT( FLOAT(  ( I+N-2*( M-2  )  )*( I-N  )  )  )/RA  ) 

IF(  I .EQ.N1  )G0  TO  8 

TB-ASIN(  DT«SQRT( FLOAT  (  ( I-l+N-2*( M-2 ) )*( I-l-N)  )  )/RB  ) 

8  CONTINUE 
R1-R+2.0*B1 

T2-ATAN( Z/( R1  -  (M-2  )*DT  -  DRO)  ) 

CALL  ENV1( Rl, Z, T2 , TA, TB, B1 , E, QJ, Q4, DT, M, INDX1,N1 ) 

COE( 6  )-E( 7  )«( 1.-B1/R1 )-E( 2 )*( 1 . -ALFA*B1/R1 )+Bl*E< 1 )/Rl 
+  +B1*(  ALFA*E(  2  )  -  E(7)  +  E(*>  )/Rl 

COE(  6  )-COE(  6  )-( 1 .  +2 .  *B1/R  )*QJ(  1,M,7 ) 

Z6-Z+2.0*B6 

T6-ATAN( Z6/(  R-( M-2 ) »DT-DRO  )  ) 

CALL  ENV1( R,  Z6 ,  T6 , TA,  TB,  B6  ,E,  QJ , Q4, DT, M, INDX1, N1 ) 

COE( 5  )-E<  4  )+E( S  )+B6*ALFA*E<  2 )/R+B6«E( 8 )/R 
COE(  5 )-COE(  5  )+B6/R*QJ( 1,M,  8  ) 

T9-ATAN(Z/(R-(M-2)*DT-DRO  )  ) 

CALL  ENV1( R, Z,T9,TA, TB, B9 , E, QJ , Q4, DT,M, XNDXI , N1 ) 
COE(2)-E(7)+B9*(  E( 3  )+ALFA*( E( 2 )/R+E( 6 )  )  ) 

COE( 2  )-COE<  2  )-QJ<  X,M,7  > 

COE(3)-E(4)+B9*(  E(  6  >+ALFA*(  E(  2  )/R+E(  3  )  )  ) 

COE(4)-E(l)+B9*(  E( 2 )/R+ALFA*( E(  3 )+E( 6 )  j  ) 

XF(  B5 . EQ . DT5 )GO  TO  9 
Z5-Z-2 .0*BS 

T5-ATAN(  Z5/ ( R-( M-2 ) *DT-DRO )  ) 

CALL  ENVX(  R, Z5 , T5 , TA, TB, B5 , E, QJ, Q4, OT,M, XNDXX.NX  ) 

GO  TO  11 

9  DO  10  L-1,8 

10  E(  L )-(  ZN-FLOAT<  NZ ) ) *Q1(  NZ+1 , N1 , L  >+(  FLOAT( NZ+1 >-ZN ) *Q1( NZ , N1 , L ) 

11  CONTINUE 

COE(  1 )-E( 4 )-E(  5 )+B5«ALFA*E(  2 )/R-B5*E(  8 )/B 
COE(  1  )-COE(  1  )+BS/<  Z+DRO ) *QJ(  1 ,  M,  7  ) 

+  -B5/R«QJ(1.M, 8) 

IF( M . EQ . N1  )COE(  1 )-A< 1 , 9 )+B5/( Z+DRO ) *QJ( 1 , M, 7  ) 

+  — B5/R*QJ(1,M, 8) 

CALL  MATINV( AB, COE, 6 , 6 , 1, DET,K5 ) 

DO  209  L-1,6 
QJ(1,M,L)-C0E(L) 

209  CONTINUE 
200  CONTINUE 
B1-DT5 
B5-DT5 
B6-DT5 
B9-DT 
RETURN 
END 


SUBROUTINE  ENV1( RL, ZL, TETA, TA, TB, BL, E, QJ, Q4, DT, M, INDX1, N1 ) 


C  CALCULATION  OF  QUANTITIES  AT  TERMINAL  POINTS  BICHARACTERISTIC 
C  CURVES  OP  POINTS  —  M — 


10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 

10590 

10600 

10610 

10620 

10630 

10640 

10650 

10660 

10670 

10680 

10690 

10700 

10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 

10810 

10820 

10830 

10840 

10850 

10860 

10870 

10880 

10890 


o  n 
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I 


COMMON/ALL/ 1 ,  TOW,  R,  Z ,  X ,  J ,  DT5 ,  ALPA ,  BETA ,  BETA2 ,  G2 ,  BG , 
DIMENSION  QJ( 2 , INDX1 , 8 ) , Q4( 3 , 8 ) ,E( 8  ) 

TTA-TETA/TA 

TTA1-1.0-TTA 

IT(  I .  EQ .  N1  )GO  TO  8 

TTB-TETA/TB 

GO  TO  9 

3TB"0.0 

CONTINUE 

TTB1-1 . O-TTB 

C2-2.0*BL/DT 

Cl-1 . 0— C2 

DO  10  L-1,8 

E( L)“C1*( TTB*QJ( 2 , M— 1, L)+TTB1*Q4( 2 ,  L )  ) 

+  +C2*(TTA*QJ(l,M-l,L)+TTAl*g4(l,L)  ) 

10  CONTINUE 
RETURN 
END 


SUBROUTINE  RINTER(  Q, QJ , Q4, INDX4 ,  INDX1 , ZA,N1 ) 


CBA,  cm,  PIES  ,N10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 

,**.*****«***»**1:L110 


INTERMEDIATE  TWO-DIMENSIONAL  POINTS  —  N  —  11120 

»»*»*«..•*******»»*«*.  *.**«*****»»«**ir**»***«***ir*********««***«******11130 
COMMON/ALL/I .  TOW,  R,  2 ,  K,  J,  DT5 ,  ALTA,  BETA,  BETA2 ,  G2 ,  BG,  CBA.  CABA.PIE5  .N11140 
DIMENSION  ZA<  N1 )  11150 

DIMENSION  QJ( 2 , INDX1 , 8 ) , Q4(  3 , 8 ) , Q( IPDX4 , INDX1 , 8 )  11160 

Y-I-2»N-1+K  11170 

X-0 . 5  *Y+0 . 5  «FLOAT(  (  J-l ) *(  J-l ) )/Y  11180 

A-X-FL0AT( I— N )  11190 

AJAX-X*X-A*A  11200 

AJ-SQRT(  AJAX )  11210 

AJM-(  FLOAT (  I»I-N*N)-AJ*AJ)/FLOAT(  2*(I-N))+1.0  11220 

TJK-ASIN( FL0AT( J-l )/X  )  11230 

TAJ-ASIN<  AJ/X )  11240 

TETA-TJK/TAJ  11250 

M-AJM  11260 

C1-(2A(M)-AJ)/(ZA(M)-ZA(M+1>  )  112  3 

DO  10  L-1,8  11280 

10  Q(J,K,L>-TETA*<Cl«QJ<l,M+l,L)v(l.-Cl)«QJ(l,M,L))+(l.-TETA)*Q4(l,L)11290 
RETURN  11300 

END  11310 

11320 

SUBROUTINE  MATINV( A, B, N, N1 , MSUB, DET, KS  )  11330 

DIMENSION  A(1),B(1)  11340 

TOL-O . 0  11350 

KS-0  11360 

JJ— N  11370 

DO  65  J-1,N  11380 

JT-J+1  11390 

JJ-JJ+N+1  11400 

8IGA-0.0  1141C 


AD-Alie-  faOO 
UNCLASSIFIED 


MASSACHUSETTS  UNIV  AMHERST  DEPT  OF  CIVIL  ENGINEERING  F/ G  20/14 

RESPONSE  OF  THICK  CYLINDRICAL  SHELLS  TO  TRANSIENT  INTERNAL  LOAD— ETC(U) 
AUG  02  T  HAN-URA*  w  A  NASH  DAAG2O-77-G-0095 

ARO-14700.2-EG  NL 


o  o 


r 


it 


i 


IT-JJ-J 
00  30  I-J,« 

zj-mz 

ZF(3BS( BIGA)-AB3(  K  ZJ)  )  >20,30,30 
20  BZOMUZJ) 

znx*z 
so  cowtzmg 

I F( AB3( BIG* )-TOL )35 ,35,40 
35  K5-1 
RETOOK 

40  Zl-J+H*( J-2) 

IT-HOX-J 
00  SO  X-J,H 
Il-Il+H 
Z2-X1+IT 
3AVE-4( Z1 ) 

A(I1)-R<Z2) 

K  12 >**5AVE 
50  *( II )-R( II )/BIC» 

3AVE-B(  mx) 

B(nax)-B(J) 

B( J)-SAVE/BIGA 
IF(JHf  >55,70,55 
55  IQS-M*<  J-l ) 

00  65  ZX-JT.il 

IXJ-IQ3+IX 

IT-J-IX 

DO  60  JX-JX,H 

IXJX-W*( JX-1 )+IX 

JJX-IXJX+IT 

60  A(  IXJX)"A(  XXJX)-(  K  ZXJ)*R(  <WX>  ) 
65  B(  XX)*B(  IX)*“(B{  J)*X(  ZX7)  ) 

70  mr-H-i 

do  bo  j»x,mr 
XR-ZT-J 
XB-M-J 
ION 

00  60  K-1,J 

B(  ZB  >-B<  ZB  )-A(  IA)*B(  ZC  ) 

IR-IA-W 
60  IOIC-1 

iRetuoo 

BHD 


SUBROOTIHE  *EaOLT( M0S,DR0,Dia,DT,I,r7, IBDX4,IBnXl,T,Tl,ZJ,ia ) 
COMCTI/IOt/ZFBOW,  ZTZUi,  XMBXTE,  XJ1,  XBKXBT.EOBXBT 
COMeM/VBZMT/  JORUIT(  9  ) ,  HMtXMT(  9  ) 

DIMEBSXOR  T(XMDX4,XMD9Cl,t),Tl{XMSX4, 200X1,8) 

Z7( ZJ  .EQ.  2)  00  to  to 
XJ1-1 


11420 

11430 

11440 

u4»e 

11460 
11470 
11400 
11400 
1150 0 
11810 
11520 
11530 
11540 
11550 
11560 
11570 
11500 
11500 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11600 
HOBO 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11700 
11700 
11000 
11610 
11080 
11030 
11040 
11050 
11060 
11070 
11000 
11000 
11000 
11010 
HOBO 
11030 


oououuuu  o  o 


90 


iP(iPRurr  .eq.  l)  oo  to  75 
73  CELL  OOTP(RME,OR0,DR1,DT,X,PF,XMDX4, 
XJ-2 

90  XF(I  .or.  XTXLL)  BIOM 
00  70(100,200,300)  IPRXMT 
100  XF(  Z  .ME.  XfHON  )  RETURN 
ZraOM-ZnOMfZWRZTE 

CELL  00TV1( DR0,CT, X , XMDX4, INDX1,T,M1 ) 


,Y1> 


200  CELL  0USP2(DR0,DT,X,XMDX4,XMDX1,T,T1) 


300  XF(X  .MB.  XFROM)  00  SO  310 

xnmt-xntoMfxinuTE 

CELL  OOTPl(DRO,DT,X,XNDX4,XMnXl,T,Nl) 
310  CELL  0UTP2(  0X0, OT,  X ,  XMDX4,  XMD9Q. , T, T1 ) 


1X940 

1X990 

1X990 

UfW 


1X990 


1X0X0 

120X0 


S0BB00TXXE  OOTF(RNE,DR0,DR1,DT,I,PF,XMDX4,XMDX1,T1) 

9KIMT3  THE  VELOES  OF  THE  INPUT  C0M3TEMT3  AMD  THE  XMXTXEL  * 

CONDITIONS  • 

■**••«••••*••**•••••*••••*••*•*•••••••••••••••••*••««•••*«•••»«•••• 

DIMENSION  Tl<  XMDX4,  XRDJCL,  8  ) 

INDEX" INDXI-1 
CELL  OER(MDASE) 

WRITE(1,9)  NDA3E 

MUTE  (1,10)  RME,ORO,DRl,PF,DT,XMDnC 
9  P0RNAT(E12/*  TREMSXEMT  RESPONSE  OP  SEMI— INFINITELY  LONG* 

4*  TUBE  SUBJECT  TO  ABRUPTLY  APPLIED  LQED(CESE  !)•// 

4*  DORATI  ON  TIME  OF  LOAD  -  PERMANENT*/*  WIDTH  OP  LOAD* 

+*  -  SEMI -INFINITE*/ ) 

10  FQIRMAT(  *  THE  INPUT  CONSTANTS  */21(  18-)// •POISSON'S  RATIO  «*, 
4PS.3,/*XNNER  RADIUS  -*,P4.2/*00TER  RADIUS  "*,F4.2/*WQ»-* 

+ *DXMEMSOXNAL  SIRS  -*,F4.2/*STEP  SIZE  FOR  INTEORATIOW  ■*,F9.V 
+*NUMHER  OF  TIME  STEPS  -*,I3///*  THE  XNXTZAL  CONDITIONS  « 

4*(TXME  T"0.0)*/3«(1H-)/) 

WRITE  (1,20)  (T1(1,1,1),T1(2,1,1),L*1,3) 

20  rORMAT( "POINT  -  R-1.0  Z-0.0*.27X. *FOXMTS  -  R-1.0  2 >0.0*/ 

420(  IB— ) ,  27X, 21(lN-)//2(  *  SITT  -*,F7.4,32X)/2(  *  OR  -*,F7.4,  SEE)/ 
♦2(  "DORDN  -*,F7.4,32X)/2(*  SIZE  -*,F7.4,32X)/2(  *  OS  -*.PT.4,33Z) 
+/2(  *DUZDX  -*,F7.4,32X)/2(*  SXRR  -*,P7.4,32X)/2(  *  SIRS  -<»,r7.4, 

4 32X  )/72( IN— )/ ) 


1X040 

12030 

12090 

1X070 

12090 

12090 

12100 

121X0 

1X120 

12130 

12140 

12190 

12X90 

12X70 

12190 

12X90 

12200 

im^h 

lino 

12230 

12240 

12290 

12290 

12270 

12290 

12290 

12300 

12310 

12320 

12330 

12340 

12390 

12390 

12370 


0UT91( 090, Dt, X , XMDX4, 


iT,Ml) 


12390 

utaoo 

12410 

12420 

12430 

12440 

12490 


o  o  o  n  o  o  ooono 


•1 


PRUTS  VALUES  OF  VARIABLES  L  AT  SPECIFIED  TIKE  FOR  FOURS  (J,X)  1S490 


for  j-i,i*isdc+4  and  k-i, index* 1  1MM 

1ES00 

DZMEMSZOM  T(  ZMDX4,ZMDXX,«)  1 HAD 

30  T0»>FL0AT(  X  )*0T  12SE0 

WRITE  (1,40)  TOW  12520 

40  FORMAT (//*  AT  TIME  T-*,F7.*/19( lH-)//5X, *Z*,5X,*R*,7X. «SXBR*,SX,  12540 
+*SXTT* ,  5X,  "SIZE* ,  SX,  «SXRZ* ,  SX.  *0R* ,  7X,  *0Z*/72(  IB-  )  )  12550 

XA-X+1  12540 

IOI+3  12570 

XR-1  12540 

XF(MOD{  1,2 )  .SQ.  0)  XX-2  12550 

DO  40  J*1,XC  12400 

XX-S-XX  12510 

Z-DT*FLQAT(J-1)  12420 

WRITE  (1,50)  12420 

SO  FORNRT(*  *)  12440 

DO  40  X-*X,K1,2  12450 

»>FLOAS(K-1)*0T+DRO  12440 

WRITE  (1,70)  Z.R,T(J,K,7),T(J,X,1),T(J,K,4),T(J,X,4).  12470 

4  T(  J,X,2),T(  J,X,5)  12450 

40  CONTINUE  12490 

70  FORKAT( 8( 2X,F7 . 4) )  12700 

WRITE  (1,40)  12710 

40  FORMAT(  72(  IB— )  )  12720 

RETORM  12720 

EMD  12740 

12750 

SOBROOTXME  00TP2(0R0,DT,X,ZMDX4,ZMDX1,T,T1)  12740 

12770 

r*********************************************************************12740 


PRINTS  VALUES  OF  VARIABLES  L  FOR  SPECIFIED  POINTS  ( JPRZXT,XFRXNT)  12790 


.ttttttttttttttttttttttttttttttttttttttttttMtttttttmttmnmtMtuiOO 

12510 

COMnN/RR/IFROK,ZTXLL,IWRXTS,XJl,ZPRXMT,NPRIMT  12520 

C0MK3H/FRXMT/JPRZMT(  9),KPRXMT(  9)  12520 

DZMENSZON  T(XNDK4,XMSK1,9),T1(XRDX4,XXDK1,4)  12540 

DXmSXOW  R(  9 ),Z(  9 ),TUW(  51  ),VAR(  9,51, 9  )  12450 

ZF(IJ1  .MB.  1)  00  TO  100  12540 

Ml-2  12570 

DO  10  J*>1,MPRXMT  12500 

R(JJ)-FL0AT(XPRINT(JJ))*DT-DT«50  12550 

Z(OJ)-FLOAT(JPRZMT(JJ))«DT-DT  12500 

10  COWKNUE  _  12110 

DO  20  X^l^S  12520 

DO  20  LL-1,NPRZBT  12520 

J10-JPRZNT(LL)  12540 

X10-RPRXMT(U.)  12500 

TOW(1)-0.0  22500 

VMK  U,  1 ,  L  )-Tl(  J10 ,  X10 ,  L  ) 


12170 


20  OOOTXMOE  12*00 

100  ZT(MOO<Z,2)  .2Q.  1)  BIW  129*0 

XP-X/2+1  19000 

90M(X9)>*X£*9(X)«DT  19*10 

00  120  J.>1,*PRX»T  190*0 

J10-JPRINT(  JJ  )  19090 

mo"*PKnrr(  jj)  i*o«o 

00  110  L-l,«  190*0 

YRR<  JJ,IP,I,)-T(  J10,R10,t)  190*0 

110  COWTXWK  11070 

120  oowruroae  uo*o 

300  xf(  x  .x a.  xrxxjt)  mom  190*0 

00  340  jj-i,wrx»t  19100 

wane  (2.310)  jj,r<  jj),z<  jj)  19110 

C  310  rOMOK ///3X,  12 , 5X*TB0E  POINT !  R  -«,r7.4,2X*Z  <**.r7.4/3Z,4S(l»-)  19120 

C  4  //7X*T0W*,UC*SXRR*,4X*SX9T*,6X*3XZZ*,6X*SXRZ*,7X*QR*,9X*tJS*/  19130 

C  +72(10“) )  19140 

310  F0RMRff(X2,2F7.4)  191*0 

DO  330  KX-l.XP  191*0 

mam  (2,320)  TCM(m),VRR(JJ,m,7),VRR(JJ,m,l),?RR(JJ,nC,4),  19170 

+VM(JJ,KK,*),VM(JJ,XX.2),mil(JJ,lR,5)  191*0 

320  ran«r(7(3z,F7.4))  1*1*0 

130  OOTXMUE  19200 

C  warn  (2,333)  13210 

338  ra*aT(72(  !■-)/)  19290 

340  CCWINOE  19*90 

Mivm  19240 

mo  132*0 


93 


APPKHDIX  C 

PROGRAM  LISTING  OF  TRES2 


mmmsmma 


VKOiM  txx32(ootpot,tafxs,ta»s4: 


2t  to  oams  nx  mm: 
nxcx  cTLznatzaa.  c 

wnca  is  rniiHD  so i 

umara  or  ns  asm. 


ttooita 

or  Mr  urinau  urn,  oooao 


TO  Ml 


at  T-o,  za  usifoxm  z  n 
s-o  to  s»zxnxm. 


c  oooaozsan  stscth  fox  ns  moats  osed  zs  ns  fsooxami 

c 

C  J  -  OOOXDZSAR  FOX  Z-AXZ8.  J-l  AT  S-0.0. 

C  X  -  COOXDZMATE  FOX  *-AXXS.  X-l  AT  X-0X0. 

C  L  -  coarozxxrs  FOX  VAXIABUS.  1  -  8Z1T  S  -  OS 

c  2  -  ax  «  -  poses 

c  2  •  DORPS  7  -  8ZXK 

C  4  -  8ZSS  •  -  SZXS 

C  ST  -  TUB  COOXDZXASX.  1  -  TOW,  2  -  700-71,  3  -  T0NMt*DT 


00100 

00110 


00140 

001S0 


MOHBEX  OF  DZVZ8Z0MS  ACROSS  TBZCSI 

Torn,  mm  or  zunaMaxososm 

ZRTBXMAL  RADZU8 
BXTEXMAZ.  RADIOS 
901380**8  RATIO 

dubssxosuss  loaozxq  isnxairt 


ns  form  op  output  i a  sxlsctsu  st  spbcxfixso 
ns  ZXPOXMATZON  XEQOZRBD  FOR  IBB  001901 


l  OP  c 

**»){ 


00240 
90)  OOtSO 


00290 


ZPRZMT 


FORM  OF  OOTPOT 


00910 

00920 

00990 


PRIST  FOR  A  8PSCZFZSD  TZMB 
FRIST  FOX  A  8PBCIFISP  FOIST 

prist  fox  a on  bpscifisp  tub  asd 


S1AXTZSG  TUB  FOX 

ins  for  tomuxat: 
tub  ixnxvAZ.  op  i 
mombbx  op  aozsn  i 

J  -  COORDZXASX  OP 
X  -  COOXDZSA n  OP 


00970- 


/F0/FF,F9,FX,W 


nnn  nnonn  nn  non 


\ 


rn— iut/t  rrr  t - ui — i - - —  •M~ 

-nrnmi'Tmi  rrrr  i - t~t - 

co— o/7kxm¥/J7kxov(  i).mx»n  t  > 

OX— 8X00  V3(31,4),VV(34,8) 

ox— sxoo  q3(3i,4).g7<2.31,8) 

UMMZfli  M(U) 

HJ— 0/40/0(34,31.4), Vl<  34,31, 4),V2(34,31,4),V0VMi(  34,31,4) 


CC— O/flO/0<  34,31.4),Q1(  34,31, 4),Q3(  34,31,3)  00470 

00440 

WOT  V0  —  7400010  00440 

00400 

0074  XOHEX,  4,  DNO,  Dll,  10(2,77/30, 19,1.  ,1.30,  ,19,1.0/  00410 

cna»(jnza*(ii),i>-i,2)/2,2/  oooao 

a—oaMtxov(if),M-i,2)/i,2/  ooooo 

Din  XV4ZllT,Zni0M,ZVZZX,ZllltZ1S,NVSZMV/l, 1,30, 1,2/  00440 

41-4H-1  00440 

xwna-iiraDc+i  mom 

ZMDK4*— BEM  O047O 


C4LL  (Z4LZ1K  442 ,  DUO ,  INDEX ,  XKD3& ,  XKDX4 ,  T3  ,  TT , 
+DW,Q3,QJ,  22,71) 

«VW 


30BH00TX4E  G1Z^1((10(E,D40,Z4DKX,  2303X1,  ZKDX4,T3,TT, 
+0ia,Q3,QJ,Zl,41) 


00440 

00440 

00700 

00710 

00740 

00730 

00740 

097*0 

00700 


»•**«**•*••*»***»•**•«•»«»******•*•»*****•*« 


i  V0  7ZX  TBB 


•  00740 


cM4m/m/i,yow,»,«,K,J,DV»,4ire, 
rrwooi  u/nsm/jmMU  4),K34U(V(  ») 
ooMni/wznm.zvzu.,n«izvs,zji,zntzirr 

00— 0/70/77, 74, 72,70 
00—0/14/41,42,43,48,44,44 
00— 0/XZ44/4D(  4 ) 

OX— 4X00  41(01) 

CO— 0/T0/V<  14, 31,4),  Tl<34.31.4  ),T2<  34. 31, 4) 
+V0V2X, (34,31,8) 

CO— 0/00/0(34,11. 4), 01(34, 31,4), Q2<34,11, 4) 
OX— 4ZOO  T3<  Z4DK1, 4  ),T4(  3, 8  ),TV(  110(4, 4  ) 
DZ— 4X00  Q3(X40Kl,4),g4<3,4),gj<2,X40ea,4) 

dLCOSAVZOO  or  VO 


,02,40,< 


00040 

00070 


OOQIO 

00440 

00430 

00440 


SV»(  001-040  )/7L04V(O) 
DV8-0V/2.0 

1 . 0-MB  ) 

4m2*(l.(HUn)/2.0 


00#70 


9BTA^3Q*T( BETA2 ) 

Q2-0T/(1.0+SEIA) 

BQ-2.0*BZTX*G2 

CBAK1.0-BTXA)/(1.(HBZTX) 

OHM .  0«BSTk/(  1  •  04BETA  ) 

Bi-ors 

B2-OTS 

B3-Q2 

B5-0T3 


IJ-1 

9XES-2.0*AXAN<1.0) 

C 

C  SR  ALL  AXXAT3  EQUAL  TO  ZEAO 
C 

00  SO  L-1,S 
BD(L)— 0. 

00  49  MT-1,3 
T4<MT,L)-0.0 
Q4<MT,L)-0.0 
49  COMTUTOE 

00  SO  K-1.IHDX1 
T3(K,L)-0.0 
Q3(K,L)-0.0 
QJ(l,K,L)-0.0 
QJ(2,X,L)-0.0 
DO  SO  J-X.XRDX4 
T(J,X.L)-0.0 
Tl(  J,X,L)-0.0 
T2( J,K,L)*0.0 
TOTAL<  J,X,L)-0.0 
Q<J,K,L)-0.0 
Ql(  J,K,L)-0.0 
Q2(  J,X,L)-0.0 
so  cowtikoe 
c 

C  INITIAL  CONDITIONS 

c 

pi«n 

92-1.0 

Tl(  1,1,7  HPP/D9«0*«92 
n(i(i4Hin«n(i,i,7) 
T1<1,1,2)— Tl(l,l,7) 

»( 1,1#  3  )-»2«rr/Dno**(  92+1 . ) 

Tl( 1,1,4)— 91  *T1( 1,1,7) 
T1(1,1,9)-T1(1,1,4) 

Tl<l,l,2)-0. 

Tl<  1 , 1 ,  S  )— VT*AL9A*(  1 . 0+AL9A  )/2 . 0 

00  88  J-2.XRX4 

Tl(  J,  1 , 7  )— TF/SQKT(  DAO  ) 

T1<J,1,1)-A19A*T1<J,1,7) 


01020 

01020 

01040 

01000 

01020 

01070 

01000 

01090 

01100 

OHIO 

01120 

01120 

01140 

01120 

01120 

01170 

01120 

onto 

01200 

01210 

01220 

01220 

01240 

01220 

01220 

01270 

01220 

01290 

01200 

01210 

01220 

01220 

01240 

01220 

01270 

01220 

01290 

01400 

01410 

01420 

01420 

01440 

01420 

01420 

01470 

01420 

01490 

01200 


01210 

01220 

01220 


47 


Tl(0r,l,4)-Tl(J,l,l) 

Ti(J,i.2)— TKJ.1.7) 
Tl<J,l,3)-0.5*rr/D*0**1.3 
59  COWTXXOX 
DO  <0  L-1,9 
T4<1,L)-T1<1,1,L) 

DO  50  J-1,XXDX4 
TT<J,L)-T1<J.1,L) 

•0  COWTXXOX 

c 

C  THE  FRAME  OF  XXTEGSATXOK 
C 

DO  2000  X-1,XXDBX 

3XGW-1.0 

TO»-X*DT 

IA-I+1 

XAX-XA 

XB-X+2 

IOI+3 

XX-3 

DO  1000  JIH2,XC 

n-s-ix 

J-X+4-JM 
2-noM(  j)«DT-nrr 
XF( JM  .GT.  3)  00  TO  200 
XF( JM  .EQ.  3)  00  TO  300 
C 

100  X-l 


CALL  LOADED( DKO, XNDX4, XNDXl, DT,T,T1,T2 , 3XGM,DX1 ) 
XF{ X  .IQ.  1)  OO  TO  109 
DO  110  X-2,X 
ft-FXAAT(  X  ) *DT-DTf DUD 

CALL  OXMXX( DRO,XMDX4, XMDX1,DT,T,T1,T2,3XGX,DR1 ) 
110  COWTXXOX 
105  X-I+l 

ft-FLOAT(  X  )*DT+DXO 

CALL  mVX(DR0,XMDX4,XMDXl,T,3XGX,FF) 

DO  119  X-1,XA 
DO  119  JJ-XC,XXBX4 
DO  115  L-l,« 

T(JJ,K,L)-T(XB,K,L) 

115  C0WTXX02 

DO  120  JJ*2,XA 
DO  120  L-1,9 
T(JJ,XA,L)-T(IB,XA,L) 

120  COWTXXOX 
00  TO  1000 

300  X-l 

CALL  XADM(Fl,DX0,XXDX4,XX0Xl,T,Fr) 


01940 

01990 

0}990 

01970 

0i990 

01990 

01900 

01910 

01920 

01990 

01940 

01990 

01990 

01470 

01990 

01990 

01700 

01710 

01720 

01730 

01740 

017S0 

01790 

01770 

01790 

01790 

01900 

01910 

01920 

01)190 

01940 

01990 

01990 

01970 

OlfOO 

01990 

01900 

01910 

01920 

01930 

01940 

01990 

01990 

01970 

01990 

01990 

02000 

02010 

02020 

02090 

02040 

02090 


DO  305  L»l,5  0*050 

93(1,L)-9<J,1,L)  03070 

94<3,L)«94<2,L)  03000 

94(2,L)a94(l,L)  03000 

305  CONTINUE  0*100 

EKJNO+TOW  03330 

94<l,7)-rF/X**P2  03330 

t«(i,i)4inm(i,?)  03330 

94(1,2)— 94(1,7)  0*140 

T4( 1,3 )-P2*rr/R**(P2+l. )  0*150 

T4<1,4)-P1*T4<1.7)  0*150 

94(1,5)— 94(1,4)  0*170 

94(1,6)-94(1,2)/*  03300 

94(1, 5>-0.  0*150 

XF(X  .US.  2)  GO  90  1000  0**00 

DO  310  K-3,1,2  03330 

DO  310  L-1,8  0***0 

9(  J,X,L)«9(  XB,K,L)  0***0 

310  CONTINUE  0**40 

320  00  90  1000  0*250 

c  02250 

200  XP(J.EQ.  1)  00  90  500  02270 

C  02250 

400  ir(JOC  .EQ.  2  )  00  90  405  0*250 

X«1  0*300 

ft-DKO  02310 

m-PP  02320 

CELL  L0ED1(DR0,XNDK4,  IMHO., 09,9,91,92, SIGN,D«U,F**)  02**0 

405  DO  445  X-KX,X,2  02*40 

R-FXOET(  X  )  'DT-0T4-DNO  0*350 

IIHW)'(H)-I*I+(H)'(H)  0**50 

IP(1M  .09.  0)  OD  90  430  02*70 

ML-K+J-I-2  0**50 

XP(NL)  410,415,425  02*50 

410  CELL  0ENEK1(DR0,XMDX4,XXDK1, 09,9,91,92, SXC*I,I»1)  0*400 

GO  90  445  02410 

415  CELL  DIEG< DEO, XNDX4, INDXl.DT, 9,T1,T2,T4, 5ZGN,DR1 )  02420 

DO  420  L-1,8  024*0 

93(X,L)-9(J,K,L)  02440 

420  CONTINUE  02450 

00  90  445  02450 

425  CELL  0XN9X3t(  DEO ,  XNDX4 ,  XNSQCl ,  D9 ,  T3 , 94 , 9 ,  SIGN ,  DEI ,  Kl )  02470 

OO  90  446  02450 

430  DO  440  L-1,8  02450 

9(J,K,L)«-9(XB,K,L)  0*500 

440  CONTINUE  02010 

445  CONTINUE  02520 

00  90  1000  025*0 

C  02540 

0*550 
0*550 


500  2P(XX  .EQ.  2)  00  90  505 
E**l 


02570 


DO  501  1-1,5  MMO 

501  BD(L)-<T1(X+2,1,L)-T1(2,1,L)  025— 

B0<5)— BD<  5)  0—00 

nwr  o—io 

CALL  LQAD1 ( DUO , IKDX4 , ZXDX1  ,DT,T,T1,T2,SXQH, OKI , PKX )  025— 

505  IF( I  .LB.  2)  00  TO  SIS  026— 

XMM-1  02640 

DO  510  X-KX,XM(,2  02050 

R?*FLOAT(  K  )*DT-DT+D20  02000 

DO  500  >l,t  02070 

500  BD(L)-n(  I+2,JC,L)-T1(  2,K,L)  02000 

BD<5>— BD<5)  0—00 

CALL  OBOEKK— D,ZMDaC4,XBDaa.D*,*,Tl,T2,BXQ«,D5tt)  02700 

sio  cornua  02710 

515  K-I+l  027- 

DO  520  L-1,5  02730 

T<J,K,1)-T4<1,1)  0—40 

520  corrmta  02750 

1000  COUTI—  02700 

8ZO»— 1.0  02770 

XF( 1-5 )195S , 578 , 604  02750 

C  XHXTXAL  KETLBCTED  C0MDXTX0K3  027— 

590  COWTXMUE  02500 

gi(l,]H,7)-rVDI(l**92  02510 

gi(i.Mi,i)^ALFA*gi(i,ia,7)  02520 

Ql<  1,51, 2  )— SZ«*gi(  1,111,7  )  02550 

Ql(l,»l,3)-5XafP2*F*/DRl**(P2+l.)  02640 

gi(l,M1.4)-Vl*gi(l,«1.7)  02050 

gia,m,5)— QK1.K1.4  )  02550 

gi(i,vi.6)-gi(i,ia,2)/Diu.  02570 

gi(l,Ml,0)-.0  025- 

DO  600  J-2,XXDX4  025— 

gi(  j.m,  7  )-P2/sgRT(  dri  )  02900 

gi<J,»l,l)^ALFA*gi(J,21,7)  02910 

gi(J,Ml,4)-*UFA«gi(J,Ml,7)  02—0 

gi(j,m,2)— 3XGB*gi(j,Hi,7)  02950 

gi(J,Ml,3)-0.5«8iaT*FVDRl*«1.5  02—0 

600  conTzmoe  025— 

DO  602  1-1,6  02960 

g4U,L)-gi(l,Ml.L)  02—0 

DO  602  M-1,K1  02—0 

gj(l,M,L)-g4<l,L)  05—0 

602  C0MTXWU2  05000 

DO  603  J-1,XHDK4  0—10 

DO  603  X— 1,  ZBDOOL  050- 

DO  603  X^1,S  05030 

g(  J,K,L)-gi(J,K,L)  03040 

—3  CO—OB  03050 

00  —  4000  0)010 

•04  IX— 1-9  03Q70 

nwn-ix  oso— 

—  606  1-1,5  050— 


100 


E 

I 


Q4(3,L)-Q4<3,1) 

Q4(2,L)-Q4<1,L) 

•06  CONTINUE 

X-rLOAT(  2*11-1  )*DT+DRO 

Q4<1.7)-FV***»2 

Q4(1,1)-A1FA»Q4(1,7) 

Q4<  1,2)— 3X01*04(1,7) 

Q4<  1,3  )«3IGN *P2*PR/R*  *(  M+l  •  0  ) 

Q4(1,4)-P1*04(1.7) 

04(1,5)— 04(1,4) 

Q4(  1 , 6  )**Q4(  1 ,  2  )/R 
Q4(l,3)-0. 

DO  3000  JM-2,XC 
J-I+4-JX 
IM-HDD( JM+N, 2 )+2 
Z-rLOAT( J-1)*DT 
Jl-I-M+1 

J2-2+3QRT(  PL0AT( 1 *I-W*N ) ) 

XP( J-Jl )«40, 630 , 610 
610  ir( J.LTJ2)QO  to  620 
XK1 
R-DR1 

PB— T(J,H1.7) 

CALL  LQADED(DRO,INDX4.INnXl,DT,Q,Ql, 02,3X0^0X1) 
IF(  IX. EQ .  1  )<J0  TO  614 
DO  612  KR-2.IK 
K-N-KR+2 

H-PLQAT(  X ) *DT-DT+DRO 

CALL  GZNER(DR0,XNOX4,XNDXl,DT,Q,Ql,Q2,3Xar,DXl) 
•12  COMTXXOE 
614  X-ICW 

K-PL0AT<  X— 1 ) *0T+DRD 

CALL  NAVE(DR0,XNDX4,XNDX1,Q,SXQ?,?K) 

DO  616  K-KN.N1 
DO  616  JJ-J2.XKQX4 
DO  616  L-1,8 
Q( JJ,X,L)-Q(IB,X,L) 

616  CONTINUE 

DO  616  L-1,6 
DO  617  M-1,X1 
QJ(  2,Jf,L)"QJ(  1,M,L) 

617  CONTINUE 
QJ(1,1,L)-Q(J2,N1,L) 

616  CONTXXOE 

DO  619  JJ-2.J2 
DO  619  LL-1,6 


03100 

03110 

03120 

03130 

03140 

03130 

03130 

03170 

03130 

03130 

03200 

03210 

03220 

03230 

03240 

03230 

03230 

03270 

03230 

03230 

03300 

03310 

03320 

03330 

03340 

03330 

03360 

03370 

03330 

03390 

03400 

03410 

03420 

03430 

03440 

03450 

03460 

03470 

03430 

03490 

03500 

03510 

03620 

03530 

03540 

03350 


•19  Q(JJ,XN,LL)-Q(XB,XN,LI)  03360 

r*T.T.  RBOOND(DRO,INDX4,INDX1,DT,Q,Q1.Q2,Q4,QJ.J1,SIOI,T,ZA.N1.DN1)  03570 


00  TO  3000 


03530 


620  I7( XM.EQ . 2 )G0  TO  622 
X—Nl 


03390 

03600 


N-DX1 


03610 


101 


mwi  .o+rao*T<  j-i)*(  j-i  >  )/no»(  2*(  i-n)>  omo 

ONM 

00  624  fr-1.9  03040 

Q<J,E,t.)-(*J»l-FLOM?<K)  )*QJ(l,H+l,l)+(FLO«»(iH.l)-*JII)*Q»<l,M,l)  03400 

424  CONTINUE  omO 

Q<J(Z,7)-T(J,t7)  00470 

Q(J,X,#)— T(J,X»9)  00440 

622  DO  629  XR-M,IR,2  00400 

KHI-KR+2  00700 

ft-FIOATf  K-X  )  *DT+DRO  00710 

U9»(J-l)**2-I*I+(2nMC+l)*»2  00720 

IF(Ut.OT.O)GO  TO  626  02700 

COXA.  RINTER{ Q>  QJ>  Q4« INDX4, INDEX ,  Zl, N1 )  02740 

00  TO  629  02780 

626  DO  625  t-1,8  03740 

Q(  J,K,L)-Q<IB,K,L)  03770 

625  CONTINUE  03740 

429  CONTINUE  03700 

00  TO  3000  03000 

630  X-Nl  02010 

02020 

DO  633  fc-1.8  02030 

Q<J,X.I,)-flJ<l.*l,I,)  01040 

Q3<N1.L)-Q<J,X,L)  00400 

633  CONTINUE  03000 

IF(IR.I£.2)G0  TO  3000  03070 

DO  636  Xft-3,IR,2  00000 

R-N-XR+2  03000 

U9-(J-1)*»2-I*I+(2*N-X+1)**2  00000 

IF(1M.OT.O)00  TO  634  00010 

COLD  RINTER<Q(0J(Q4,INDX4,INDX1,Z3,N1)  03020 

00  TO  636  03020 

634  DO  635  W,8  03040 

Q<  J>K,L)aQ(  IB,K,L)  03000 

635  CONTINUE  03960 

636  CONTINUE  03070 

GO  TO  3000  03000 

640  IF( J.EQ.l )G0  TO  700  03990 

IF (M. EQ. 2)00  TO  641  04000 

K-Nl  04010 

RfOXI  04020 

FB—T(  J,M1,7)  04030 

FRZ— T(  J,N1,8)  04040 

COLL  LOADl( DRO, INDX4, INDX1,DT,Q,Q1,Q2, SIGN, DR1, FRZ)  04090 

IF( IR.LE . 2 )00  TO  3000  04000 

641  DO  649  KRp-IM,IR,2  04070 

X«N-XR+2  04000 

R-FL03T( X-l ) *DT+DRO  04090 

!*►( J-1)**2-I*I+(2*N-X+1)**2  o4ioo 

LM(  J-1)**2-(I-N)**2+<N-X+1)**2  Q4X10 

XL-J+2m-X-I  04X10 

IF(LM.OT.0)O0  TO  647  04110 


4 


102 


IF(  LA.OT.O )O0  TO  «4« 

04140 

XF(KL)642,643,649  v 

04190 

•42 

CALL  QENER1(  DRO,  XNDX4,XNDXl,DT,Q,f)l,Q2 /SION, OKI ) 

04190 

00  TO  649 

04170 

643 

CALL  DIAG<DR0,INDX4,IRDXl(DT,Q,Ql,g2,g4,SiaN,D*l) 

04190 

00  644  L-1,8 

04190 

Q3(X,L)-Q(J.K,L) 

04200 

•44 

CONTINUE 

04210 

00  TO  «49 

04220 

•49 

CALL  GINTER( DRO, INDX4,INDXl,DT,g3,g4,g, SIGN, DR1.N1) 

04230 

00  TO  649 

04240 

•4« 

CALL  XINTER<Q,QJ,Q4, INDX4,XKDX1,ZA,R1 ) 

04290 

00  TO  649 

04260 

647 

00  648  L-1,8 

04270 

Q(  J,K,L)— Q( IB,K,L) 

04290 

•46 

CONTINUE 

04290 

•49 

CONTINUE 

04900 

00  TO  3000 

04310 

700 

ZF( XM.EQ . 2 )G0  TO  705 

04320 

K-Hl 

04330 

R-DR1 

04340 

FB— T(J,N1,7) 

04390 

DO  701  L-1,8 

04360 

701 

BD(L)-Q1( X+2,N1,L)-Q1<  2,N1,L) 

04370 

B0(5)— BD(5) 

04390 

CALL  IiOADl(  DRO ,  INDX4 ,  INDX1 ,  DT ,  Q  ,  Q1 ,  Q2  ,  SIGN ,  DR1 ,  FRZ  ) 

04390 

709 

ZF(  ZX. XX. 2)00  TO  715 

04400 

DO  710  XRf-XM,XX,2 

04410 

K-N-JOH2 

04420 

R— FLOAT ( X-l ) *DT+DRO 

04430 

DO  706  L-1,8 

04440 

706 

BD< L )-Ql< 1+2 ,X, L )-Ql(  2 ,K. L) 

04490 

BD(  5  )— BD(  5  ) 

04460 

CALL  GENER1( DRO, XNDX4,XNDX1,DT,Q,Q1,Q2, SIGH, DR1) 

04470 

710 

CONTINUE 

04460 

715 

K-KW 

04490 

00  720  L-1,8 

04500 

Q(  J,K,L)— Q4(  1,L) 

04910 

720 

CONTINUE 

04920 

3000 

CONTINUE 

04930 

4000 

CONTINUE 

04940 

1969 

CONTINUE 

04990 

00  1975  J— 1 , XNDX4 

04060 

DO  1975  L-1,8 

04970 

00  1970  X— 1, IA1 

04990 

TOTAK J,K,L)-Q(  J,K,L)+T(  J,X,L) 

04990 

1970 

CONTINUE 

04600 

XF( X ,NE.2*N)Q0  TO  1975 

04610 

TOTAL< J, 1 , L )-TOTAL< J, 1 , L )+TT(  J, L ) 

04620 

1979 

CONTINUE 

04630 

CALL  RE3UXA(RNE,  DRO,  DT,X,FF,XND9C4,XNSX1,  TOTAL,  T1,XJ,N1, 

04640 

+TT, DR1,N ) 

04690 

non  ooooonnonnno  nn 


DO  1990  J-1.ZMDX4  0*640 

DO  1>I0  L-1,9  04670 

DO  1990  K-1,141  04440 

T2( J,X,1)-T1(J,R,L)  04440 

Tl(  J,K,L)-T(  J,K,L)  047*0 

02(J,K.l)-(ll(J,IC,X.)  04710 

gi(J,X,L)-Q(  J,K,L)  047X0 

i»ao  oortxmoe  047*0 

2000  continue  04740 

nan  04740 

RED  04740 

04770 
04740 

SOBROCTIHI  AMAT(DRO,IMDX4,INDXl,DT,T,Tl,T2,A,3iaM,DRl)  04740 


0^400 

nm»«Mu  <04410 


PURPOSE!  70  CALCULATE  THE  MATRIX  AMD  VECTOR  BREED  OR 


2  *04420 


COLOI4IS  1  70  •  OF  R(II,JJ)  REPRESENT  TEE  MATRIX  MH2XC  4(12,4)  24  *04440 


THE  COLOMI  VECTOR  SOCH  THRTi  *04440 

4(1.9)-  (R2)  R(S.9)-  [RS]  *04440 

4(2,9)-  R9  4(6,9)*  [41]  *04470 

4(3,9)-  410  4(7,9)-  [45]  *04440 

4(4.9)-  412  4(9,9)-  [43]  *04040 

04440 

COMCM/ALL/I, TOW, R,Z,K,J,DT9,  ALFA, BETA, BETA2, 02, BG,CBA,CABA,9XX9,M049S0 
C0M4Mr/4A/Bl,B2,B3,B5,B4,B9  04940 

COMMOR/FO/FF,FB.FR,FM  04940 

COIMOI'/LXKIC/BD(  9  )  04440 

DIMENSION  T(IRDX4,XMDX1,9),T1(XMDK4, XNDK1,S),T2( XMDQC4,XNBX1,9)  04)940 
DIMENSION  4(9,9)  04970 

F-FF  04990 

IF( SION. EQ.— 1.0 )FHFR  04*90 

DO  COO  XX— 1 , 9  OSBOP 

do  coo  jj-i,9  osbio 

4( XX, JJ)— 0.0  0S020 

600  C0RTXN0E  09090 

09*40 

CALCULATING  THE  MATRIX  09040 

09040 

A(l,l)-B2/R  09070 

A(  1 , 2  )— 1 .  -2 .  *AXiFA*B2/R  04040 

4( 1,4)— B2/R  04*90 

4(1,7)— 1.-2.  *B2/R  04*00 

c  04210 

ALFA9-B9*ALFA  04120 

ALFA9R-ALFA9/R  04*90 

4(2,2)— 4LF49R  04140 

4(2,3)— 49  04*40 

A(2,6)~*LFA9  04*40 

A( 2,7)— 1,  09*70 


n  o  a 
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VUHUlili 

V).)h-uns 

A<3,4>-1. 

JU  >.•)—»» 

R<4,1)-1. 

A<4.2>— B8/R 
K4,JK *URS 
k(4,i)>-uni 

*<5,2  >— AIiE**Be/R 
*<5.4>-1.0 
A<5,5)-1.0 
*<5,«>— B6/X 

*(6,1  )— Bl/R 

*<6.2>— l.-2.«*LF**Bl/R 

*(6.4)— Bl/R 
*< 6 , 7 )«1 . +2 . *B1/R 

*(7,2  )— *UX*B5/R 
*<7,4)-1.0+B5/(Z+DR0) 

*(7,5  )— 1 . 0-*LEA*B5/(  Z+DRO  ) 

*(7,7  )— B5/<  Z+DRO  ) 

A<7.8)-B5/R 

A<  8,5 )— 3IGH*BET*+8ET*2*B3/R 
*< 8, 8  V-l .0+3 . 0*81QH*BET**B3/R 

CRLCULATIHG  THE  VECTOR 

ZIR-Z*Z-TOW*TOW+(  R-DRO ) *( R-DRO ) 

ir(3IOrEQ.-1.0)ZIR-Z*Z-T0W*T0W+(2.0*DRl-DR0-R)**2 

KMEG-K-1 

XPOS-K+l 

JHEC-J-1 

JPOS-J+l 


X7(KHEQ  .EQ.  O)  00  TO  830 

*(  6, 9  )-(  Tl(  J,XMEG,  1  )+XtTX*Tl(  J.KHEO,  2  )-Tl( J 

♦*bx/<  rh»  htx<  j.xhxq,  7  )-n<  j.kheo,  2 ) 

X7( ZXR  .OT.  0.0)  00  TO  8X0 
K  8, »  )-&<  8, 8  >+<  Ti(  J.KHEO,  4  )4>ALFR«T1(  J.KHEO,  i 
+T1( J.KHEO, 7 ))*31/(R-DV) 


8X0  COWTIHOE 

SRK-CRBR«TX(  J.KHEO,  8  )4CBMT2(  J.K,  8  ) 
Ot-C3kB*«TX(J,KHEO,5)+CB**T2(J,K,5) 

A<  8,  *  )-SR2*(  X .  0-3 . 0*SX0M*BET**B3/(  R-BO )  )+C2*(  -EX 
+(R-BG)) 


08X00 

00X80 

00200 


00220 

00220 

00240 

00200 

08200 

08270 

08200 

08280 

08300 

053X0 

08320 

08330 

08340 

08380 

08340 

08370 

08380 

00380 


084X0 

00420 


00470 


08480 


008X0 

08820 

08830 

08840 

08880 


08870 

08880 

00880 


080X0 


00030 


00480 


•83/  08470 


00080 


-ViSg 


nono 


10» 


•SO  CO—  90990 

Ki,»W«i(j,j9ot,?)+ftm^n<j,x»o$,2)-tt(j,vot,i))  tint 

♦»M/(  H*OT>+Tl(  J.OOS,  7  >+Tl(  J  ,KFOft,  2  )  Oft— 

XP<*IX  .or.  0.0)  00  to  too  oftt— 

Kx,9)-*<i,9)+a2*<TX(j,»os,7)+ix*i«*i<j,i90ft,2)-  ottto 

4*X(J,KP0ft,  4  ))/(»<«*)  oft— 

c  oft— 

ft  40  CO—  OftTTO 

Zr(JKEQ  .SQ.  0)  00  to  ftftft  OftTftO 

x<  7 ,  •  y-ri(  jno.x,  4  y— rx(  jwq.x,  s  )+bs*il«*ti(  —o,x,  2 )/*  onto 

++M*(T1(  JW0,K,7)-T1(  JWO,K.4)+ALn*Tl(  JW0,K,»))/(MK>4*-0»)  OftftOO 

B8*T1(  JHXG.K,  •  )/B  OftftlO 

00  to  «90  OftftlO 

ft  45  !(7,9)-BD<4)-BD<5)+BS*lXri«aD<2)/fttBS«<BD<7)-aD(«)4*— •  OftftlO 

+BD(  9 ) )/( DBO+ft-DT)— BB*BD( • )/B  09940 

C  OftftOO 

•90  COMTMOZ  Oft— 0 


A<S.*>-«l(J10S,X.4)4n(d*0S,K.SV4-M«ftU— «T1(  »0ft,X,2  >/*  OftftTO 

■M-B6*T1(  JPOfl.K,  ■  )/X  Oft  MO 

C  '  OftOftO 

XF(SZQM  .IQ.  >1  .MD.  X  .XQ.  2«K-X+2)  00  TO  470  0—0 

xf(k  .xq.  z  .in.  azoH  .ag.  x)  oo  to  ««o  oftftxo 


K  2 ,  *  )-T2<  J,K,  7  )+B9*T2(  J,K,  3  )+llP19*T2(  J,X,  2  )/»Um«T2(  J.X, ft )  Oft— 
i<3,9)-t2(j,K,4)+B9«T2(j.x,ft)+iz?B9*T2(o,x,2)/]Mui9*r2 <j,x,3)  — 
A(4,9)-«2(J,K,X>+a9"t2(  J.X,  2  )/ft*l&P19«t2(J,X,3  )**—•< •tl(J.K.ft)  Oft— 


MO  B-B2 

00  TO  ftftO 
•70  B-BX 

coo  cow  r/x«»i.s 

B2-B4SZ0H«0T/2.0 

lXX-SX0B*r*B*<X.O-2.0*liri)/B2**i.S 

1(2.9  >-C0ll*IWBiaB»0 .  S*B9*C0V-8XQft*lLFl*B9*C0ai 

K  3.  »  )-ltn*C0ir*B-0 .  S*SZGM*B9*1ZJP1*C0M 

1(4,9  )-'lX#X*COM*KH> . 5»3ZqB«B9HM«C0B  C0ft*8X0M*B9 

ZT(3Z0M  .XQ.  X)  1(X,9)-4US 

ZF(3Zm  .XQ.  -X)  K  ft,  9  HUB 


99f00 

OftfOO 

OftftBO 

oftOfto 

fniinn 
Oft— 0 
Oft— 0 


Oft— 

r*******************»****1»*********#*«********************tH»****««pBX10 

aoxxooTzxxa  tarn  in  czxt  —  oan  to  idjobt  — c  i  re"  am  oo— 

— Ott  OP  VOZMtS  Oft— 


1M 


3AVE-A<LA,ZI) 

04330 

04330 

10  A<L»,II>-SAVE 

04340 

fgffJWI 

04350 

BD 

04340 

c 

04370 

50MWWZM3  CIXT(A,X,M,LA,LB) 

04390 

c 

04390 

c  ; 

ijmmaamm  00 toms  ia  mo  lb 

04300 

c 

04310 

DimSZOM  XK,N) 

04330 

00  10  ZZ-1,* 

04330 

SAVE-A< II ,  IA  ) 

04340 

A<II,LA>-A<II,LB) 

04350 

10  A( ZZ,LB)a5AVE 

04340 

KBXVKt 

04370 

XHD 

04340 

c 

04390 

c 

04400 

aomoomig  wAVE(n*o,zin*4,ziaaa,T,szai,F) 

04410 

c 

04430 

c* 

c 

INCIDENT  LEADING  HAVE  POZNTB  —  G — 

04440 

c* 

c 

04440 

COJ^Of/ALL/I,  TOW.  R.Z.K.J.DTS,  ALTA,  BETA,  BETA2,G2,BG,CBA/CABA,PIX3,N06470 

coMm/ro/rr ,  ra.PR,  vm 

04440 

DIMENSION  T(  IEDX4 ,  IHDX1 ,  •  ) 

04490 

T(  J,K,  7  )"F/X**0  •  5 

04500 

T(  J,K,1)-ALFA*T(  J,X,7) 

04510 

T(J,X,2)— SIGN*T(J,X,7) 

04520 

T(  J,X, 3 )-F*3IGN»0 . 3/X**l. 5 

04530 

T(  J.X.  4  )-ain«T(  J,X,7  ) 

04540 

XETOJW 

04550 

WKO  045*0 

C  04570 

C  04550 

C.  04590 

somoorxitl  Ut*D*C(Pl,D«0,XMDX4,IiroXl,T,Fr)  04400 

C  04410 

C  LEADZKG  ZI0CEK-50KFACZ  90ZMT  —  Q  —  04430 

C**tt*t*f*»*tttt*tt*»«***tt***f*tf<r»**>*tt*(*t*tftt»M*t*»*mt****m«o444o 
C  04450 

COM»«/ALVI,TCW,X,Z,X,J,DrS,  ALTA,  SETA,  8ETA3, 03,  »0,C1A,CABA,9ZX3,II0*«*0 
DZMZNSZOIf  T(  ZMDX4,  XMD9C1 ,  •  )  04470 

T(  J  ,X,  7  )«0  .  04440 

T(.7,X,9)-0.  04490 

T(J,K,3)-0.  04700 

o*cxr-<i.4AtrA)/2.o  04710 

T<  JtX,4HPl«TT/ABS(Z+0*O)**D*CAY  04730 

T(  J,K,S)-T(  J,X,4)  04730 
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1 


C 

c 

© 

c 

© 

c 


T< J,K,4 >-CBCAX*Pl*TT/ABS(*+OBO)**(DXCAX+l.  )  00740 

T(J,X,2)-0.0  00700 

T(J,K,1)-T<J,IC,4)  00700 

00  1  b-1,0  00770 

T(J,X,L)4(X+2,1,L)-«<J,X,L)  00*00 

mro  ootoo 

BOD  oQooo 

O001O 

aanoonxE  loaoed<oiio,  1x0x4,  xmdxi, or, 7,11, r.sxoh.oxi)  oooao 

ooooo 


r***«t**«(*tt***t«tt**t<t***t*»«»»»*»«**»*Mt****Mmmt**t*»***toOMO 
XEGOLAR  LOADED  BOOMDAKT  POXMT  (ONE  OXKEXBXOMAL)  —  F  —  00000 


•OOOOO 

00070 


COMOT/ALVX .  *00 .  X,  Z ,  X ,  J ,  DTS ,  ALTA ,  BETA ,  00X02 , 02 , 00 ,  COX,  COOX,  0X3 

CQMM/AA/B1,B2,B3,BS,B6,B9 

OOMMOM/TO/FF ,  OB ,  OR,  TM 

DXNEMXOM  9(XMDX4,XMDXl,0),Tl(XXSK4,Xlliaa,0).n(XaDK4,X0OKl,0) 
DXXEM5X0M  A(  •  ,  9),AB(  4, 4),C0E(  4) 

wr 

rr{ sigm.eq. -1 . 0 )r-re 

XP(X.BQ.X  .MO.  BXOO  .BQ.  1}  OO  TO  2 
XP(  SIOK  .BQ.  -1  .AMD.  X  .BQ.  2«X-I+2 )  00  TO  0 
00  TO  5 
2  B2-B1/2. 

00-01 

00  TO  S 
■  B9-B1 

01-01/2.0 

»  CALL  AMAT(DR0,X]IDX4,XMDX1,DT,T,T1,T2,A,*XG0,D01) 

XF< SIGH . BQ . -*1 . 0 yCALL  RXMT(A,«, 9,1,4) 

DO  7  11-1,4 
DO  •  JJ-1,4 

•  AB( II, JJ)— A( XX, JJ) 

7  C0K(XX)-*(XX,9) 

T(  J,X#S  )— 0.0 
T(  J,X,(  >—0.0 
T(J.X,7)-r 
T(  J,X,0)— 0.0 

AB< 1,2 )-AB< 1 , 2 )+ALFA»B2/R 
AB<  1 , 4  )— O . 

000(  1  )-COE(  1 )-< 1 . 0-2 .0*B2/X)«T(  JT,X,  7  ) 

IT(  SIOW.  BQ. -1 .0  )C0*<  1  Htf  1, »)-( 1 . 0+2 . 0*01/X)«T(J,X.  7  ) 
a*<  2  )-C0«(  2  )-T(  J,X,  7  ) 

CALL  MATXMV( AB,COZ, 4, 4, 1,DKT,B*  ) 

XP(KS.BQ.l)  00  TO  3 
DO  •  L-1,4 

•  T(  J,  JC,  1 )— COE(  L  ) 

Bl-DTS 

■2-01 
B9— 2 . *B1 


OOOOO 

OOOOO 

04010 

ooooo 

ooooo 

00040 


07010 

07010 

07000 

07)040 

0*000 

07000 

07)070 

07|000 

07000 

07100 

07110 

07UO 

071*0 

0*140 

©7100 

07100 

07170 

071*0 

07100 

07000 

07210 

07000 

072*0 

07040 


07000 


oououuo  o  o  o  u  o 


3  WHIT*  ( 5,4) 

4  rommaet  »snwnLAH  a  moolah  mmp  hocmaht  i-o  row  -  *-•) 


soBMOorzn  LOADi(OMo,xMDX4,xK>Ki,Dr,T,fi,n,«xaN,oHi,rM) 


MOOLAH  LOADED  BOONDAHX  VOXMV  (WO  DIMMXOMAL)  —  *  — 


COMCIM/ALVI,TOW,H,Z,K,,T,DT3.ALrA,MTA,MTA2,Oa,»Q,CBA.CnEA,»XE», 

COMCT/TO/FF,FB,FK.PM 
COMOT/LXMK/BD(  ■  ) 

DXMM3X0M  T<IIOX4,X*X»a,«),Tl(  XM0X4 , XMDX1 ,  •  ) , T2( XM0C4,  XHDE1 ,  •  ) 
DXMM3X0M  A(3, 4),A1(4,«),C0*(4) 

XF(8X0N.BQ.-1.0)r-FB 

CALL  AIOT( DMO, I*DX4,I«nXl,DT,T,Tl,T2, A, 3100,0*1) 
XF(SXOH.XQ.1.0)CALL  1X37(3,1,1,1,7) 
xr(3xar.ig.-i.o)CALL  rxmt(a,3,»,i,7) 

00  7  11-1,4 
DO  •  JJ-1 , 6 
«  AB( XX, JJ)-A( XX, JJ) 

7  C0B(XX)-A(XX,3) 

T(J,K.7)-F 

T(  J,K,3)-0.3*(1.0-3X<W)*ntt 

CQE(  1  )^X«(  X  )-( 1.0-2.0*B2/*)«T(  J,K, 7 ) 

XF(  3XGM.EQ.-1.0)C0C(  1)— A(l,  9)+BS/(DII0+Z)*T(  J,K,7  ) 

♦  -B3/**T(  J,K,4) 

C0«(  2  )-CCE(  2  )-*(  J,K,  7  ) 

COE(§)-CO*(  *)+B3«T(  3.x,  7  )/(*+DEO) 

XF(  SXON .  IQ .  -X .  0  )<M«(  •  4 ,  *  )-(  X .  042 . 0*81 ) «T(  3,X.  7  ) 

ir(3IOI.XQ.-X.O)COI(3>-CO£(3)+B4/A*T(  J,K,«) 

CALL  MHXXMV(AB,C0S,*,*,1,DBT,M) 

XF(KJ.ZQ.X)  00  TO  3 
00  *  M,« 

3  WIXTX  (3,4) 

4  FOAMAT(  •SXMOLAH  AT  MOOLAH  LOADED  10CM0AHT  2-0  VOXM*  -  1  -  •) 
STOP 


•omootxm  ennt(Dao,XMK4,zma,OT,T,Tx,n,txM,BKi) 


MOOLAH  XHMH  OMB  DXMNSXOMAL  VOZETS  —  I  — 

C**w* *•*•••****•***»*»•***»»**•****• **•«**•***»*****»*** 


VO  uouuoo 


■x 
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combo/aai/x, to*,*.*. k.j.dto.alta.  ora.  orau. 02,00,00 
000*0/12/01,02,03,09,00,09 

on— low  T<iicnx4.ninxi.»),Ti(i«DX4,iiiDxi,«),Ta(Zimc4. 
DH0S1OM  A(4,9),A9(9,9),C0S(9) 

xr( axtm.xQ. i.o. mud. x.tQ. i)ao  to  a 

17(0X00. OQ.-l.O.lOD.IC. IQ. 2nHX+2)00  TO  • 

00  TO  S 

2  02-01/2.0 


07010 


07020 

07040 

07000 

07000 


OO  TO  S 
•  00-01 

01-01/2.0 

S  CUX  JkM2ff(09D,XlIDX4,XHDOCl»DT»T,Tl,T2,  A,5XGO,  DAI) 
CUL  CDfT(A,t,9,5,7) 

COLL  XXMT(A,9,9,9,4) 

00  7  11-1,5 
00  0  JJ— 1,5 
0  A*(XI,JJ)-A<XX,JJ) 

7  CQS(IX)— A(XX,9) 

A0<1, 2  )-*S<  1, 2  )+AXJ’A*02/A 
2B(1,4)— 0. 

A0( 1,5)— 20(1, 5)402/7 
JUB(  5, 2)-2B(  5. 2  )42LTX*Bl/7 
20(9,4)— O. 

20( 5 , 5  )— 20( 5 , 5 )~01/7 

CALL  M2TXOV(2B,COK.3,9,1,OCT,XS) 

Tt(KS.XQ.l)  OO  10  3 
00  9  L-1,4 
9  T(  J,X,L)— COB(L) 

T(  J,X,S)— 0.0 
T(  J,X,4)— 0.0 
T(J.K,7)-C0K(9) 

T(  J,X,t )— 0.0 
Ol-OTS 
02-01 
09-2.0*01 


07090 


07010 


07020 


07900 

07900 


00120 

00140 


3  man  (5,4) 

4  FOJM2T<  *8X0 


•OXOOOLAO  AT  ABOOLAX 


okz  dxmdisxooal  ooxor  -  s  -•)  ooito 


1(000,  XOOK4,  a«a,OT,T,Tl,T2,9XOO,BKl) 


9S0ULAX  XMOBO  TWO  0X»0X0MAL  OOXHTO  —  A  — 
OOLVX  MftTAXX  2  WXTOOUT  ALH02TX0O 


2U/X,70V,I,X,K,J,DT9,ALn 


v- 


uuuouuuu  o o  o u  o 


no 


CQME»/A1/B1,B2,B3,BS,14,B9  04100 

COMOr/XUK/BO<i)  00110 

on— iow  t(  mot4, zxoxi, •  ),ti(indx4,  indxi,  •  ),T2( xndko, didxi, •)  00120 

dxmenoion  A(8,9),iB<8,o),coe<o)  ooiio 

O&L  ANAT<DRO,INnX4,rN0Xl,DT,T,Tl,r2,A.3IGW,DRl)  01)40 

00  7  XX-1.0  00100 

00  6  JJ-1 ,  •  00100 

•  A8(II,JJ)-A(II,JJ)  00170 

7  COE(II )-A(II,9)  00100 

04X1.  NATXNV(AB,  COB,  0,0,1,  GET,  K3)  00100 

XF(KS.BQ.l)  00  HO  3  00400 

00  9  L-1,0  00410 

9  *<±*'t)mCaK(L>  00420 

niUM  00410 

3  Witt  (5/4  )  00440 

4  F0RMAT(  "SINGULAR  IT  REGULAR  INNER  TWO  DIMENSIONAL  POINT  -  A  -*)  00400 

STOP  00440 

hod  00470 

00400 

00490 

SUBROUTINE  GINTER< DRO, XMDX4, XNDX1, DT, T3.T4.T, 3XGN,DR1,N1 )  00800 


00010 


XMTDWEDXAIE  INNER  TWO  DXMEM3X0WAX.  POINT  —  X  —  00810 

CALCULATED  BY  INTERPOLATION  ALONG  TEE  REFLECTED  LONGITUDINAL  WAVE  00040 


COMNM/ALVZ  ,  TON,  R,  2/ K,  J,  DTS  /  ALFA/ BETR,  RESA2  /  G2  ,  BO,  CBA/ 
DIMENSXON  T(  INDX4,  XMOOQ,  I  ),T3(  INDX1, 0  )>T4(  3,0) 

Y-T0W-( R-ONO ) 

IP( SIGN . EQ . -1 . 0 )Y-T0W-2 . 0*DR1+D*D+R 

»-<***/T+Y)/a. 

RX-<X-Y)/X 

TXTA1-ATAN(  RE  )/PXE8 


RE-<  TOW-X )/DT+I . 

XP< SIGN.EQ. -1 . 0 )RR-2 •W-X+l+X/DT 
KA-IYIX( RE ) 

KB-KA+1 

Ca-RK-rLOAT(XA) 

ci-i.-ca 

00  104  L-1,0 

104  T(  J,X,L>-TETA*(C1*T3<K1,L>+C2*T3(XB,L)  )+TXTAl*T4<l,L) 


DXA0<  DBG/  XNDX4,  XMDK1.  DX,T,Tl.Tf  ,T4,  SIOW/OWl ) 


,PZES / N00070 
00800 
00890 


00410 


00410 

00440 

00480 

00440 

00470 


00490 


00710 

00720 

00710 

00740 

00700 

00700 

00770 


TWO  DU—  XONRL  POINT  —  L  — 


C  0*4*0 

COI4  PH/ALL/I. TOW, R,Z,K,J,DTS, ALTA, 8274,82112,02,90. CBA.CABA, PIES, W0*430 

comm*/ia/bi.b2,  B3  ,bs  ,**,**  om«o 

ozmtszow  T<ZNoac4,nmaa>a)>Ti(ziiDX4<zxDxi,t)>T2(znK«>z«oaa,t)  mmo 

OZmSZOM  A(  4, 9  ),AB(  4,4  ),COE(  4  ),E(  4  ),T4(  3,4  )  0*440 

B1-0T5  04970 

B2-Z*DT/(  2 .  *(  Z+2 .  *DT  )  )  0*490 

ZP(SZOM.BQ. 1.0)00  TO  5  094*0 

BT-B1  09*00 

B1-B2  04*10 

B2-BT  OHIO 

S  B3"( Z+( 1 ■ -BETA ) *DT-3QRT(  ( DT-B2TA*(  Z+DT ) )*«2+( 1 . -BETA*  )****2 ) )  04**0 

+/( 2 . *( 1 . -BETA2 ) )  04*40 

B5-DTS  04*40 

B6-Z*DT/< 2 . *(  2 . *Z+DT ) )  04*40 

B9-< Z+DT-SQXT( Z*Z+DT*DT ) )/2 ,  04*70 

CALL  AMAT( DRO, INDX4, IltDXl.DT,  T,T1,T2 ,1, 3Z0H, DAI )  04*40 

DO  7  11-1,4  04*90 

DO  4  JJ-1,8  09000 

4  AB( II, JJ)-A( ZZ, JJ)  0*010 

7  COE( II)-A( 11,9)  0*020 

B2-K+2.0*B2  09020 

CALL  EMV( IWDX4,  IMDXl,DT,Z,]t2,E,T,Tl,T4,B2  )  09040 

COB( 1 )-E< 7 )•( 1.+B2/R2 )+E< 2 )*(  1 . 4ALFA*B2/B2 )-B2*S( 1 )/B2  0*040 

++B2*( AL7A*E( 2 )+E( 7 )— E( 4) )/22  0*040 

Z4— Z+2.*B6  0*070 

CAUi  ENV( INDX4,IMDX1,DT,Z4,R,E,T,T1,T4,B4)  09*40 

COE(  5  )"E(  4  )+E(  5  )+B4*ALFA*E(  2  )/K+B4*E(  4  )/B  0*0*7 

CALL  ENV(  ZM0X4, ZXDX1, DT, Z,X, E,T,T1,T4,B*  )  0*100 

COE( 2 )-E< 7 )+B4*(E( 3 )+ALFA*(  E( 2 )/** E( 6  )  )  )  09110 

COE( 3 )-I(4)+B9*(E< 4 )+ALPA*( E( 2 )/*+E< 3 ) ) )  0*120 

COE( 4 )-E( 1 )+B9*( E(  2 )/KtALFA*( E( 3  )+E( 4 ) ) )  0*130 

K3-ft-2.0*B3«BETA  0*140 

CALL  EMV( ZMDX4, ZBDX1,DT,Z, A3,E,T,T1,T4,B3 )  0*140 

CQE(  4  )-E(  4  ) •(  1 . 0— SZGM*3 . 0*BETA*B3/*3  )-E(  5  ) •(  SZGH*BRA4B3*BESA2/»  >0*140 
CALL  KATZNV(  AB  ,  COE  ,4,4,1,  DET ,  XS  )  0*170 

ZF(XS  .EQ.  1)  00  TO  3  0*1*0 

DO  209  L-1,8  0*1*0 

20*  T(J,K,L)-C0B<1)  0*200 

Bl-DTS  09210 

B2-0TS  0*220 

B4-OTS  09230 

B3— 02  09240 

B9-DT  09240 

KETam  0*2*0 

3  WAITE  (4,4)  0*270 

4  F02MAT(  *  SZMGOLAB  AT  ZRTEBKEDZAlOr  TWO  DZMEKSZOMAL  POZMT  -  L  -*)  0*2*0 

STO*  0*290 

*»  09*00 

C  09*10 

C  09**0 

WH8WZIB  XMV(  ZNDX4,  ZMDX1,DT,ZL,KL,E,T,T1,T4,BL)  0*330 


vvvuuu 


U2 


I 

l 


0*240 

CALCULATION  OF  gOAMSXTXXS  U  TEXMXMAL  FOURS  OF  0*240 

SXCStMCWSTXC  CURVES  or  FOZIRS  l  0*270 

onto 

COMSJN/ALVX ,  TOW,  X,  S,  X,  J,  DTS ,  till,  BRk,  BETA2 ,  OS ,  SO ,  CM,  CABA.FXSS  ,*09400 
DIMENSION  T(  INDX4,  IMDX1, 8  ),T1(  XNDX4,INDX1,4  ),T4(  2,  •  ),E(  •  )  0*410 

C1-2.0»SVDT  0*4S0 

C2-1.0-C1  0*4S0 

nE7A-ASAN(  ZL/(  ABS(XL-R)+DT)  )/PH3  0*440 

thetai-i.o-tnha  0*4*0 

00  10  L-1,4  0*4*0 

X(D-C1*(THEZA«T1(J,X-1,L)4«BETA1*T4<2,L))+  004T0 

♦C2«<THBTA^J+1,X-1,L)+TBMTA1»T*<1,L))  0*4*0 

10  CONTINUE  0*4*0 

mam  o**oo 

mo  omio 

C  0**20 

SUBROUTINE  RBOOND< DUO, INDX4, 1*0X1,  DT(g,Ql,Q2.Q4.gj,Jl,SI<*,T,*A.  OMSO 
♦  111,0X1)  0**40 

c  OMSO 

C  INTERMEDIATE  TOD-DIMENSIONAL  POINTS  —  X  —  0M70 

CMMON/ALL/I,  TOW,  R,Z,X,J,  DTS,  ALFA,  BETA,  BETA2,G2,BQ,C8A,  CABA.FXSS,  N0M90 
COMMON/AA/B1  , B2,B3,B5,B6,  B9  0*400 

CO)MOR/FO/TF,FB,FX,FN  0*410 

DIMENSION  ZA(  HI  )  OMIO 

DIMENSION  T(  INDX4,  XNDX1,  8  ),QJ(  2,  XNDX1, ■  )  OMSO 

DIMENSION  g<IMDX4,XNDXl,4),gi(XNDX4.XRaXl,S),g2<XNDX4,XNaa.S)  0*440 
DIMENSION  A(  8, 9  ),AB(4,6  ),COE(  6  ),E(  >  ),04(  3,8  )  OMSO 

R-rLOAT(  N ) *DT+DRO  0*4*0 

DO  200  M-1,N1  0M70 

ZN-SQRT(  FLOAT*  ( I+N-2*K+2  )*(  I-*)  )  )  OMSO 

Z-ZN*DT  0M90 

ZA(M)-ZN  0*700 

HZ-ZH  0*710 

DO  12  L-l, 4  09720 

12  gj<l,M,L)«0.0  0*720 

ZF(M.Eg.l)00  TO  200  09740 

gj(l,M,7)— <(W-FL0AT(NZ))«T(NZ+2,M1,7)  0*7*0 

++( FIAAT*  MZ+1 )— ZN ) *T(  RZ+1 , N1 , 7 )  )  097*0 

gj(l,M,4)— <(ZN-FLQAT(MZ))*T<MZ+2,N1,4)  09770 

4  +<  FLOAT*  NZ+1)-ZM)*T<NZ+1,  Ml,*)  )  0*7*0 

Bl-0 . 25*(  T0W-R+DRD-Z**2/( TOW+R-2 . 0*(  M-2  )*DT-DNO  )  )  0*7*0 

B*-0.9*(TOW-(M-2)*DT-SgRT(Z**2+(R-(M-2)*DT-DR0)**2)  )  0*400 

B5-0 . 2S*< 70W+Z-*  M-2  )*DT4(  X-( M-2  )*DT-DR0 )**2/(  Z-TOW+* M-2  )*DT)  )  0*410 

XF(BS  .OT.  DTS)  B5-DTS  0M20 

*4-0 . 28  *(  TON-Z-(  N-2  )*DT-(  R-(  M-2  )*DT-DRO )**2/<  TCM4S-*  M-2  )*DT)  )  OMSO 

CALL  AMAT(DX0,XNDX4,ZMDXl,DT,g,gi,g2,A,SZaN,DXl)  0*440 

CALL  XIMT(A,4,»,1,7)  OMSO 
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00  7  ZZ-1.8  09360 

DO  6  JJ-1,8  09870 

8  AB<ZZ,JJ)-A(ZZ,JJ)  09890 

7  CQE(  ZZ  )“A(  ZZ ,  9  )  09890 

M^T0W-(M-2)*DT  09900 

RB-T0N-(N-1)*DT  09910 

TA-A3IN(  DT*SQRT( rLOAT(  ( Z+N-2*(M-2 ) )»( Z-N)  )  )/RA  )  09920 

ze(z.eq.ni)oo  to  s  09930 

TB-ASIN(  DT*3QRT(  FLOAT(  (  Z-l+N-2*< M-2 ) )*(  Z-l-N )  )  )/RB  )  09940 

8  CONTINUE  09980 

R1-R-2.0*B1  09980 

T1-ASAN{Z/(R+2.*B1  ~  <H-2)*DT  -  DRO)  )  09970 

CALL  ENV1(R1,Z,T1,TA,TB,B1,E,QJ,Q4(DT,M,INDX1,N1)  09980 

COE(  6  )-E(  7  )  *<  1 .  -Bl/Rl  )-E(  2  )  *(  1 .  -ALFA*B1/R1  >+Bl*E(  1  )/Rl  09990 

+  +B1*(ALFA*E<2)  -  E{  7  )  +  E(4)  )/Rl  10000 

COE( 6 )-C0£( 6 )-( 1 .+2 . *B1/R)*QJ( 1,M,  7  )  10010 

Z6-Z+2 . 0*B6  10020 

T6-ATAH< Z6/ ( R-( M-2 ) *DT— DRO )  )  10030 

CALL  ENV1( R,  Z6 ,  T6,  TA,  T8,  B6,E,QJ,  Q4,  DT,X, INDQQ. ,  N1 )  10040 

COE( 5 )“E( 4  >+E( 5  >+B6*ALFA*E(  2 )/R+B6*Z( 8 )/R  10050 

COK( 5 )-COI<  5 )+B6/R*QJ(  1 ,  M,  8  )  10080 

T9— UTAH < Z/( R-(  M-2 ) *DT~DRO  )  )  10070 

CALL  EHV1(  R(Z,T9,TA,TB,B9,E,QJ,Q4,DT,M,  ZND9C1,N1)  10080 

COE(2)-E(7)+B9*<  E(  3 )+ALFA*< E(  2 )/R+E( 6 )  )  )  10090 

COE<2)-COE<2M}J<l.H,7)  10100 

COE( 3 )-E( 4  )+B9*<  E( 6 )+ALTA»( E( 2 )/R+E< 3 )  )  )  10110 

COE(4)-E<l)+B9«(  E(  2  )/R+AUTA*(  E(  3  )+E(  6 )  )  )  10120 

XF(B5.EQ.DT5 )00  TO  9  10130 

Z5-Z-2 .0*85  10140 

T5-ATAN(Z5/(R-(M-2)*DT-DR0)  )  10150 

CALL  *NV1( R,  Z5,TS, TA,TB,B5 ,E,QJ,Q4,DT,M, IKDX1,N1 )  10180 

GO  TO  11  10170 

9  DO  10  L-l, 8  10180 

10  E(  L  )•■(  ZN— EX£AT(  NZ  ) )*Ql(NZ+l,Nl,L)+(  PLQAX(NZ+1 )— ZN)*Q1(NZ.R1<L)  10190 

11  CONTINUE  10200 

CaE(l)-E(4)-E(5)+B5*ALFA*E(2)/R-B5*E(8)/X  10210 

COE(  1  )"COE(  1  )+B5/(  Z+DRO  )*QJ(  1,M, 7 )  10220 

+  -B5/R*QJ(1,M,8)  10230 

IE( M.EQ.N1  )COE( 1 )»A( 1,9 )+B5/ ( Z+DRO ) *QJ( 1 ,  M,  7  )  10240 

♦  -B5/R*QJ< 1 ,  M,  8  )  10250 

CALL  MATINV{  AB , COE ,6,6,1, DET , K3 )  10280 

DO  209  L*l,t  10270 

QJ(  l,M,L)“COE(  L)  10280 

209  CONTINUE  10290 

200  CONTINUE  10300 

B1HDTS  10310 

BS-OTS  10320 

10330 

B6-DTS  10340 

,*~PT  10380 

NETORN  10380 

*«D  10370 


no  oonnoo  oo 


U4 


10110 

101*0 

SUBROUTINE  ZNV1( RL, ZL, TETA, TA,TB, BL, E, QJ, Q4, DT,M,IHDX1, W1 )  10400 

10410 

t»****»*«*****«»*«*****«*****«********»****»**********«****«*******»***X0410 
CALCULATION  OP  QUANTITIES  AT  TERMINAL  POINTS  OP  10410 

BICHARACTERISTIC  CORVES  OP  POINTS  M  10440 

10440 

COMMON/ALL/I.  TOW,  R,Z,K,J,DT5,ALPA,BETA,BETA2,G2,BG,CBA,CABA,PIX3,M10470 
DIMENSION  QJ( 2, TNDX1, 8 ),Q4(  3,8), E( 8)  10410 

TTA"TETA/TA  10490 

TTA1-1 . 0— TTA  10500 

IP( I .EQ.N1 )GO  TO  8  10510 

TTB“TETA/TB  10520 

GO  TO  9  10510 

I  TTB-0.0  10540 

9  CONTINUE  10550 

TTB1-1.0-TTB  10540 

C2-2.0*BVDT  10570 

C1-1.0-C2  10550 

DO  10  L-1,8  105*0 

E<L)-C1*<TTB»QJ<2,K-1,L)+TTB1*Q4(2,L>  )  10400 

+  +C2*(TTA*QJ(1,M-1,L)+TTA1*Q4(1,L)  )  10410 

10  CONTINUE  10420 

RETURN  10430 

END  10440 

10450 

10440 

SUBROUTINE  RINTER(  Q , QJ, Q4,  XNDX4, INDX1 ,  ZA, NX  )  10470 

10410 

C  INTERMEDIATE  TWO-DIMENSIONAL  POINTS  —  N  —  104*0 

c  10710 

COMMON/ALL/I > TOW, R, Z , X, J, DT5 , ALFA, BETA, BETA2 , G2 , BG, CBA, CABA, PZE5 , N10720 
DIMENSION  ZA(N1)  10730 

DIMENSION  QJ( 2 , XNDX1 , 8 ) , Q4( 3 , 8 ) , Q( INDX4, INDX1 , 8  )  10740 

Y-I-2«N-1+X  10750 

X-0.5*T+0.5*PL0AT(( J-l>«( J-l))/T  10740 

A-X-PLOAT(I-N)  10770 

AJAX-X*X-A*A  10710 

AJ-SQRX(AJAX)  10790 

AJ»9-(PL0AT(  I *1— N*N )— AJ*AJ )/PLOAT(  2*(I-N))+1.0  10100 

TJX-ASIN<  FLOAT ( J-l )/X  )  10110 

TAJ-ASIN(  AJ/X )  10120 

TETA-TJX/TAJ  10130 

M-AJM  10140 

Cl"< ZA( M )— AJ )/ ( ZA( M )-ZA(  M+l )  )  10150 

DO  10  L-1,8  10140 

1°  Q(  J,K,L)-TETA»(Cl»QJ(l,M+l,L)+(l.-Cl)*QJ(l,M,L))+(l.-TEtB)*Q4(l,L)10170 
RETURN  10110 

END  10190 
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10*00 

SUBROUTINE  MATZNV(A,B,N,N1,MSUB,DET,X3) 

10*10 

DIMENSION  A( 1),B(  1) 

10*20 

TOL-O.O 

10*50 

XS-0 

10*40 

JJ— N 

10950 

DO  65  J-1,N 

10*60 

JY-J+1 

10*70 

JJ-JJ+N+1 

109*0 

BZGA-0.0 

10990 

IT-JJ-J 

11000 

DO  30  Z»J,N 

11010 

IJ-IT+I 

11020 

ZF(ABS(BZGA)-ABS(A(ZJ)))20,30,30 

11050 

20  BIGA-A( IJ) 

11040 

zmax-z 

11050 

30  CONTINUE 

11060 

ZP( ABS( BIGA )— TOL)35 ,35,40 

11070 

35  K3-1 

110*0 

RETURN 

11090 

40  IWtH'(J-J) 

moo 

IT-IMAX-J 

11110 

DO  50  K-J.N 

11120 

Zl-Zl+N 

11150 

Z2-I1+ZT 

11140 

SAVE-A<  11) 

11150 

A(Z1)-A(Z2) 

11140 

A<  12 )-SAVE 

11170 

50  A( 11  )-A< 11 )/BIGA 

111*0 

SAVE-B(ZMAX) 

111*0 

B<IIIAX)-B(J) 

11200 

B(  J)-3AVE/BIGA 

11210 

IP(  J-N >55,70, 55 

11220 

55  ZQ3-N*(J-1) 

11250 

DO  65  IX-JY.N 

11240 

IXJ-IQS+IX 

11250 

IT-J-IX 

11260 

DO  60  JX-JY.N 

11270 

IXJX-N*( JX-1 )+IX 

112*0 

JJX-IXJX+IT 

11290 

60  A(ZX3X>-A(ZXJX)-(A(IXJ)«A(JJX>) 

11500 

65  B(IX)-B(ZX)-(B(J)*A(ZXJ)) 

11510 

70  NT-N-1 

11520 

IT-N*N 

11550 

DO  80  <7*1,  NT 

11540 

IA-IT-J 

USSO 

ZB-N-J 

11360 

ZC-N 

11570 

DO  80  X-1,J 

115*0 

B( ZB )-B<  ZB )-A( ZA)*B(  ZC ) 

115*0 

IA-IA-N 

11400 

80  ZC-ZC-1 

11410 

o  o 


lit 


RETURN  H**° 

END 

C  11*40 

c  11**0 

SUBROUTINE  RESULT ( RNE , DRO ,  DT ,  I ,  FT , IKDX4 ,  INDX1 , T,T1,IJ,N1,  114*0 

+TT,DR1,N)  11470 

c  11440 

COMNCM/RE/IPROM,  ITILL,  INRITE,  I Jl, IPRINT, NPRINT  U*»0 

COMMON/PRINT/ JPRINT( 9 ) , KPRINT( 9 )  11*00 

DIMENSION  T(INDX4,INDX1,8),T1(XNDX4,XNDX1,8)  11910 

DIMENSION  TT(IMDX4, 8)  11*20 

IF(IJ  .EQ.  2)  00  TO  90  11*30 

IJ1-1  n»*o 

IF( IPRINT  .EQ.  1)  GO  TO  75  11**0 

75  CALI.  00TP(RNE.DR0,DT,I,PF,INDX4,INDX1,TT,DR1,N)  11*40 

XJ-2  11*70 

90  IF(I  .GT.  ITILL)  RETURN  11*80 

GO  70(100/200,300)  IPRINT  11990 

100  IP(I  .HE.  irROM  )  RETURN  11*00 

IFROfM-IPROM+INRITE  11*10 

IF( MOD(  1 , 2 ) .EQ .0 )  CALL  OOTP1(DRO,OT,I,ZMDE4,IMDX1,T,N1)  11*20 

RETURN  11*30 

200  CALL  0UTP2(DR0,DT,I/INDX4,INDX1,T,T1)  11*40 

RETURN  114*0 

300  ir( I  .NE.  IFROH)  GO  TO  310  11*40 

IFRQM-IPROM+IMRITE  11*70 

IP(MOO(I,2).EQ.O)  CALL  OOTPl(DRD,DT, I, ZNDX4, INDX1,T,N1)  11**0 

310  CALL  OOTP2(OR0,DT,I,ZNDX4,XNDX1,T,T1)  11*90 

RETURN  11700 

END  U710 

11720 
11730 

SUBROUTINE  OUTP( RNE,DRO,DT, I.PP, INDX4, INDEX, TT,DR1,N)  11740 

C  11750 

Ctt*>.t««**«t»tt*»ti*«««ii***iM)t***»*»tt»«**»**«*t**t*«ttt**m**«t  137*0 

C  PRINTS  THE  VALUES  OP  THE  INPUT  CONSTANTS  AND  THE  INITIAL  *  31770 

C  CONDITIONS  *  117*0 

C* ********************************** *********************************  11790 

C  11800 

CQMMQN/LINK/BD(  8 )  11810 

DIMENSION  TT( INDX4, 8 ),TA( 8 ),TB( 8 ),BDI( 8 )  11820 

INDEX-IKDX1-1  11830 

CALL  DATE(NDATE)  11840 

WRXTE( 5,7)  NDATE  U8S0 

WRXTE( 5,8)  119*0 

7  PORMAT(  A12/ *  TRANSIENT  RESPONSE  OP  INFINITELY  LONG  TUBE*  11970 

4*  SUBJECT  TO  ABRUPTLY  APPLIED  LOAD( CASE  2)*/)  11*90 

8  PORMAT( •  DURATION  TIME  OF  LOAD  -  PERMANENT*/*  NZDTB  OP*  11*90 

+*  LOAD  -  SEMI-INFINITE*/ )  11900 

MRITE(  5,10)  RNE, DRO, DR1,PP,DT, INDEX  11910 


10  FORMAT( *  THE  INPUT  CONSTANTS  */21( 1H- )//*POISSONS  RATIO  -*,PS.3  11920 

♦/•INNER  RADIUS  -*,F4.2/*0UTER  RADIUS  - * , F4 . 2/ *»ON-DIMENSIOKAL  •  11930 


o  o 


+*SIRR  -*,F4.2/*ST*P  SIZE  FOE  INTEGRATION  >*,F(.4/<mm  OT  * 
+*TIME  STEPS  -»,I3//*  THE  IMITXA1  CONDITIONS  (TIME  T-O.O)* 

+/3S( IN—)/ ) 

DO  IS  1-1,8 
IS  BDI(L)-0. 

WRITE(  5,20)  (BDI(L),TT(  1,L),TT(  2,L),L-1, 8  ) 

20  FORMAT* "POINTS-  Rp1.0,Z<0.0*,6X,  *POIHT  -  R-1.0,Z-0.0*,6X, 
♦"POINTS-  R-1.0,2>0.0*/ 

+3(19(lH-),6X)//3(*  SITT  -*,F7.4,12X)/3(*  OR  -«.F7 .4, 12X)/ 

+3( *DORDR  -*»F7.4,12X)/3("  SI2Z  -*,F7.4,12X)/3(*  OX  -*,F7.4,12X) 
+/3(  *DOZDZ  -",F7.4,12X)/3( *  SXRR  -*,F7.4,12X)/3( *  SZXZ  -*,F7.4, 
+12X )/72( IB— )/ ) 

RETURN 

END 


SUBROUTINE  00TP1(DR0,DT,I.INDX4,INDX1,T,N1) 

C 

C**«*»***»**»»*i»**«»***** »••**** ************************************** 

C  PRINTS  VALUES  OF  VARIABLES  L  AS  SPECIFIED  TIME  FOR  POINTS  (  J,X) 

C  FOR  J-l ,  INDCX+4  AND  X— 1 ,  INDEX-41 

c 

DIMENSION  T( INDX4 , INDX1 ,  8  ) ,  Q(  8  ) 

T0W-FL0AT(I)"DT 
WRITE  (5,40)  TOW 

40  FORMAT*//*  AT  TIME  T-*,F7 .4/19( lS-)//5X, *Z*, 8X, *R*,7X, "SIRR»,5X, 
+*SITT». 5X.  »S IZZ»,  5X,  *SIRZ*. 6X,  »0R«,  7X,  "DZ*/72(  XH-)  ) 

IA-I+1 

IB-I+2 

IC-I+3 

KX-2 

DO  45  J  J-l, IB 
KK-3-KX 
J-IC-JJ+1 
Z~DT*FXOAT(  J-l ) 

WRITE( 5,50) 

DO  45  K— XX, NX, 2 
R- FLOAT ( X-l )*DT+DRD 
DO  42  W,8 

42  Q(L)-T(I+2,X,L)-T(J,X,L) 

WRITE( 5,70 )Z,R,Q(  7  ),Q(  1),Q(  4),Q(  8  ), Q(  2  ) ,Q(  5  ) 

45  CONTINUE 
KK-1 

IF(MOD( I,2).EQ.O)  XX-2 
DO  60  J*1,IC 
XX-3-KK 

Z-DT*FLOAT( J-l ) 

WRITE  (5,50) 

50  FORMAT( *  •) 

DO  60  K-KX,N1,2 
REFLOAT ( X-l ) "DT+DRO 


11*40 

11W0 

11*60 

11*70 

11*60 

U»*0 

12000 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12060 

12090 

12100 

12110 

>12120 

12130 

12140 

>12150 

12160 

12170 

12180 

121*0 

12200 

12210 

12220 

12230 

12240 

12250 

12260 

12270 

12280 

122*0 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

123*0 

123*0 

12400 

12610 

12420 

12630 

12440 

12650 


•*  ••  ... 


ixt 


TM— T(  J,K,5)  124*0 

MUTE  <5.70)  Z.R.T(  J.E.7  ).T(  J.X,1).T(  J.X.4).  12470 

+T(  J.K,  4),T(  J.K.2).1M  12440 

40  CONTINUE  12440 

70  FORttkT(  t<  2X.F7.4) )  12200 

mis  (5,40)  12210 

40  201007(72(18-))  12220 

8ET08M  12220 

EDO  12240 

C  12220 

C  12240 

SOBMOOTZME  0UTP2(DR0,DT,X,INDX4,IN0X1,T,T1)  12270 

C  12240 

C  PRINTS  VALUES  OF  VARIABLES  L  FOR  SPECIFIED  FOURS  ( JPRHR,XFURr)  12400 

C  12420 

COkOm/RE/IFROM,  ZTILL.  IMRZTE,  Z Jl,  XPRXNT, MPRXMT  12420 

COMMON/PRINT/ JPRINT(  9 ) , KPRZNT( 9 )  12440 

DZMEHSZQM  T( ZNDX4. ZMD3C1, • ).T1( ZMDX4, IKDX1, ■ )  12450 

DIMENSION  R(9).Z(9).TON(Sl).VAR(S.51,5)  12440 

XF(XJ1  .HE.  1)  GO  TO  100  12470 

IJ1-2  12440 

DO  10  JJ-l.NPRXNT  12440 

R(  JJ )-FLOAT( KPRINT< JJ ) ) *DT-DT+DRO  12700 

Z(  JJ)-FLOAT(JFRXNT( JJ))*CT-DT  12710 

ZF(  JPRINT(  JJ  ) .  LT .  0  )Z(  JJ  )-Z(  JJ  )+2 .  »DT  12720 

10  CONTXNOE  12720 

DO  20  W.5  12740 

DO  20  LL-l.MFRXNT  12750 

TEMP-JPRINT(  LL )  12740 

JIO-ABS(TEMP)  12770 

KIO-KFRXNT(LL)  12740 

TOW( 1 )— 0 . 0  1*740 

ZF(JPRXNT(LL).LT.O)GO  TO  15  12400 

VAR( LL, 1,L )— Tl( X+1.K10.L )-Tl( J10.K10.L)  12410 

GO  TO  20  12420 

15  VAR(LL,1,L)-VAR(  J10.K10.L)  12420 

20  CONTINUE  12440 

ioo  zp( mod( z . 2 )  .eg.  i)  return  12430 

IP-I/2+1  12440 

TOW<  IP )-FLOAT( I )*DT  12470 

DO  120  JJ-l.NPRINT  12440 

TEMP-JPRXNT( JJ )  12440 

JIO-ABS(ZEMF)  12400 

JC10-KFRZMT(  JJ  )  12410 

DO  110  L-1,9  12420 

IF( JPRXHT( JJ ) . LT . 0 )00  TO  105  12420 

VAR< JJ,IP,L)-T(  J10.K10.L)  12440 

00  TO  110  12450 

103  VAR< JJ,XF,L)-T(X+2,X10,L)-T( J10.X10.L)  12440 

110  CONTINUE  12470 


120  COMTMME  _ 

900  XF(X  .Iff.  ZTZLL)  U1UM 
DO  940  jj»i,mxiiT 

mots  (4.910)  jj.iujj),s(jj) 

C  910  mi—TC.'.ytT  n  “T1 -  VOZMTt  *  -*,r7.4,2X*l  — ,F7.  V9»,44( u 

c  +  //7xto w ,  tyina* .  4x*o  nr«  .  4x*om* ,  umib*  .  .  «wb*/ 

C  472(11-)) 

910  ronour(X2,2r7.4) 

DO  990  IXb1,X> 

Nun  (4.920)  T0W(n).VM(JJ,iaC.7),VMt(JJ,nC,l),VM(0J,IK.4). 

♦VMI(  JJ.J0C.  4  ),V1*(  JJ.J0C,  2  ).VMU  JJ.n,  4  ) 

920  VOMaa(7(9X.r7.4)) 

990  caw  mm 
C  warn  (4.994) 

994  raaar(  72(  10- )/ ) 

940  cownwi 


10900 
10990 
19000 
10010 
10000 
10000 
Iff  9ft 
10000 
10000 
10070 
10000 
10090 
10100 
10110 
10100 
10100 
10140 
10190 
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PROGRAM  LISTING  OF  TRES3 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MDOMM  TRES3 ( OUTPUT, TAPE10, TAPIS)  00010 

00090 

CASES  <  TRANSIENT  RESPONSE  OP  IN  ZMPZMITELT  LONS  TUBS  SUBJECTED  00040 
TO  A  LOAD  OP  FINITE  WIDTH  PROM  THE  XMTERXOR.  THE  OAtt  OT  00090 


CASES  IS  RETRIEVED  PROM  TAPES  FOR  SUPERPOSITION! .  00090 

00070 

ARRAYS;  TOTAL! J,JC)  -  STRESSES  APTER  SUPERPOSITIOM  00090 

TU(  J,K)  -  DATA  PROM  TAPES  AT  EACH  TIME  STEP  00090 

LOAD  IS  SHIFTED  BAX*  WIDTH  OP  LOAD  00100 
UPWARD.  00110 

TL<  J,K)  -  DATA  PROM  TAPES  FOR  EACH  TUBE  STEP  00120 


LOAD  IS  SHIFTED  DOWNWARD!  Z+DXKECTXQN  >00130 

00140 

^••••••••*•••••••••••••*••**•••••••••00190 


DIMENSION  TOTAL< 600 , 1 ) , TU( 600 ,  t ) , TL( 600 ,  9  )  ,  ROW(  20  ) ,  L(  9  )  00190 

00170 

INPUT  DATA  00190 

WIDTH  STANDS  FOR  LOAD  WIDTH  00190 

SET  NLOAD-1  IF  DURATION  OP  LOAD  IS  PERMANENT  00200 

NLOAD-2  IP  DURATION  OP  LOAD  IS  FINITE  00210 

00220 

DATA  WIDTH, NLOAD/O. 04,1/  00290 

00240 

CALL  READ< WIDTH, BW,NLQAD,NWIDTH,NWH, JOE, DT,IXDX,INDX1,RI,  00290 

+  SIRR, IDT )  00290 

DO  1000  I-3,INDX,2  00270 

DO  10  Jl-1.9  00290 

READ(S,100)(RON(J).J-1,20)  00290 

10  WRITE(10,100)(R0W( J),J-1.20)  00900 

100  PORMAT( 20A4)  00910 

WP-< IMDX/ 2+3-JOE )/2  00920 

NPl-WP+1  00990 

NP2-NP+2  00940 

XP!JQE.EQ.l)LCX-NFl*!2*!X-l)+5)  00990 

IF( J0E.EQ.2 )LCI"( NP1+NP2 )•( 2*< 1-1 )+4 )/2+KP2  00390 

LC-LCI-(2*(X-1)+S)  00970 

LN-2*NP+J0E-1  00390 

CALL  RED(X,LCX,LC,LCA,RP,NP1,J0E,NNH,LN,T0,TL)  00390 

RR-2  00400 


WC-2 •< I-l  )+S+NWIDTH  00410 

KT-0  00420 

DO  12  J-1,NC  00490 

NN-J-( NC+1 )/2  00440 

E-DT*PLOAT(NM)  00490 

RX-3-IK  00490 

DO  12  K-XX,XMDX1,2 
KT-KT+1 


TOTAL! KT, 2 )-FLOAT(  K-l ) *DTtRX 


00470 

00400 

00490 


1  ""  11  "in.  ,  will 


NfU^Ril)*! 

DO  12  INS,* 

TOTAK  ICT,M)-YU(  ET,M)-TL<  KT,M) 

xr  ( s .  iq  .  m  )total<  a ,  m  xonK  xt-  ln*nmi  .  u ) 

XT  (  S .  IQ .  MW .  A .  M .  SQ .  •  )TOnK  ET ,  •  )— TO«L<  *T ,  •  ) 

12  OSWIMUE 

«nm<io,2oo) 

JS-NP1 

JE-LCA-WP 

IF(JQC.EQ.l)  00  TO  IS 
js-cs>MOO<ina,2) 

JX-J*-M0D(WW,2) 

IS  DO  14  J1-J3, J* 

WRXTE( 10,201 )  (T0TAL( J1,M),IN1,9) 

IF( Jl.EQ.JE)  00  TO  14 

IP(TOnLU Jl.D.W.TOTM^ Jl+1.1))  WRITE(  10,200 ) 
14  CONTINUE 

IF{  I  .EQ.INDX-1)  WRITE(10,202) 

200  FOEKAT< ) 

201  FORMAT(*P9.4) 

202  FORNAT(  72(  1H-  )  ) 

1000  CONTINUE 

STOP 


EHD  0<*7*° 

C  00740 

SUBROUTINE  READ(  WIDTH,  HW,NLOAD,NWIDTB,NNH,  J0E,DT,INDK,XNDX1,RX,  00750 
♦  SIRR.IDT)  00740 

c - - - - - - 00770 

C  PURPOSE)  TO  READ  AMD  PRINT  THE  INITIAL  CONDITION  007*0 

c - 00790 

DIMENSION  R0W(  20 ),CI(  5, • )  00*00 

REWIND  5  00*10 

IP(NLOAD.EQ.l)  READ( 5,100)  RI ,RO,3IKR,DT, 2MDX  00*20 

IP<ML0AD.EQ.2)  REAC< 5 , 101 )  DTL,RI,RO,SIRR,DT,INDZ  00*30 

100  FORMAT(//////////14X,F4.2/14X,F4.2/22X,F4.2/27X,F«.4/22X,X3)  00*40 

101  FORMAT( ///24X,F5 . 2///////14X, F4 . 2/14X.F4 ; 2/22X,F4. 2/273t,F* . 4/22X,  00*50 

♦13)  00**0 

NWIDTH-WIDTH/DT  00*70 

IF(  M00( NWIDTH , 2 ) . EQ . 1 )WRITE( 10 , 199 )  00**0 

199  FORMAT(  *  WIDTH  OF  LOAD  IS  DNSUITABM  •)  00*90 

NMNNWIDTH/2  00900 

WIDTS-2 . 0*DT*NWH  00910 

HW-WIDTH/2.0  009*0 

NWIDTH-WIDTH/DT  009*0 

CALL  DAXE(NDAXE)  ®«40 

WRZTE( 10,200)  NDATE  00990 

IF(NLOAD.EQ.l)  WRITE( 10 , 201 )  WIDTH  009*0 

IF(NL0AD.XQ.2)  WRZTH( 10,202)  DTL, WIDTH  00970 

200  FORMAT(  A12/*  TRANSIENT  RESPONSE  OF  INFINITELY  LONG  •  009*0 

♦TUBE  SUBJECT  TO  ABRUPTLY  APPLIED  LOAD( CASE  3)*/)  00990 

201  FORMAT(  •  DURATION  TIKE  OF  LOAD  -  PERMANENT*/  01,000 

♦•  WIDTH  OF  LOAD  -*,F4.2)  01010 
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00900 

00910 

009*0 

009*0 

00940 

00990 

00970 

009*0 

00990 

OOfflO 

00*10 

00*20 

00**0 

00*40 

00*90 

OOMO 

00*70 

00*90 

00*90 

00700 

00710 

007*0 


01020 


US 

202  r01M»T(*  DORATI  OH  TUB  OF  LOAD  -*,F5.2/ 

+•  non  OP  LOAD  -*,P4.2)  01020 

RENXMD  S  01000 

READ{  5 , 102 )  01000 

102  F01MAT<  ////  )  01000 

DO  10  Jl-1,14  01070 

READ( 5,303  )(R0W(  J),  J-1,20)  01000 

10  NRxm(io,203)<iioir(j),  J-1,20)  010*0 

203  ftOMAY(  2QA4)  01100 

write(  10,204)  11,01,12.01,11,01,01,11,01.11,01  omo 

204  F0MIAS(  *ft-*,P3.1,*»Z«-*,P4.2,4X,  •Rp*,P3.1»*,S»,,'*,F4.2,2X,  01120 

♦*R-*,P3.1,*,-*,P4.2,*<Z>*,P4.2,2X,  *ft-*,F3.1,*,Z-*,F4.2,4E,  01130 

+•  ft-*, F3.1,*,Z>*,P4. 2/13(18-), 4X,13(18-),2X,1*(1H-),2X,  01140 

+12(  18-  ) ,  SX,  12(  18-  )/  )  01100 

8EAD< 5,103)  011*0 

103  FOIMAT(//)  01170 

READ(S,104)((CX( J,X),J-1,3),K-1,I)  011*0 

104  P08MAT(3(7X,F7.4,12X))  01100 

READ( 5 , 105 )  01200 

105  PORKAT( )  01210 

DO  11  XML,*  01220 

CX(4,K)-CX(2,X)  01230 

11  CZ(5,K)-CI(1,K)  01240 

CX(4,S)— -CX(4,5)  0U50 

CI(4,«)— CI<4,6)  01240 

CI(  4,  S  )<— CI(  4,8)  01270 

MRZn(  10, 205  )(  (  CX<  J,  1C  ) ,  J-l,  5  )  ,E-1 ,  *  )  012*0 

205  F0RMAT(5(*  SITT  -*,F7.4,3X)/S(  *  Oft  «*,F7.4.3X)/  01290 

♦  5(*D0ftDK  -*.F7.4,3X)/5(*  SXZZ  -*,F7.4,3X)/  01300 

♦  5(  *  OZ  -*.P7.4,3X)/5(  *DOZDZ  -*»P7.4,3X)/  01310 

♦  5(  *  SXftft  -*,P7.4,3X)/5(*  SXftZ  -*,F7.4,3X)/*2(1H-))  01320 

IDT-DTI/DT  01330 

mDXl-IKDOC/2+1  01340 

IMD-XMDX1-1  013*0 

XF(NOD< XMD, 2 ) .EQ.O )  JOE-2  013*0 

XP(M0D(XMD,2).Zg.l)  JOE-1  01370 

ftETOKW  013*0 

END  013*0 

C  01400 

SOBftOOTXXE  RED(I,LCI,LC,LCA,HP,MP1,J0E,MWH,U»,TU,TL)  01410 

C - 01420 

C  PORPOSE;  TO  READ  THE  VARIABLES  FROM  TAPES  AMD  STORE  THEM  01430 

C  XM  THE  ARRAY  T(J,K)  01440 

C - - - -  .  -  01450 

DXMEMSXOM  T0(600,*),TL<600,»),TT( •)  014*0 

H88-NNH/2  01470 

ZP( J0E.XQ.1)I£A-I£+2*NP*HWH  014*0 

XF( JOE . SQ . 2 )LCA-LC+(  MMH*RF+HHH ) *2+M0D(  MMH , 2 )  014*0 

EF-LH*HMH+1  01500 

Xl-KF  01510 

10  READ<  5 , 100 )( TT( J ) , J— 1 , 8 )  01520 

100  FORMAT( *F9 . 4 )  01530 


Xr(«T(2).IQ.0.0)  X1HU-1 

01M0 

ZT( IT( 2 ) . XQ . 0 . 0 )  00  *0  11 

01U0 

00  12  W,0 

0XM0 

Tb(Kl,M*XT(Ii) 

01170 

W(  Kl-KF+1,  L  )-TT(  I. ) 

01000 

Zr(Xl.OT.LA-UinMB)  TO(K1,L>-TT(L) 

01000 

Kl-Kl+1 

01000 

LCI-LC1-1 

01010 

zr(X£2.or.o>  oo  to  io 

01000 

MCTOOW 

01000 

END 

01040 

I 


125 


APPENDIX  E 

PROGRAM  LISTING  OP  TRES4 


12« 


PROGRAM  TRES4( OUTPUT, TAFE15 , TRFEIO )  OOOIO 

C  00030 

C  CAST  4  i  TRANSIENT  RESPONSE  OF  AN  INFINITELY  LONG  TUBE  SUBJECTED  00040 

C  TO  A  MOVING  LOAD  OF  FXMZTE  WIDTH.  THE  DATA  OF  CASE  2  00050 

C  XS  RETRIEVED  FROM  TAPE10  FOR  SUPERPOSITION .  00060 

C  00070 

C  *.».»***.***..*«.»***»*«»«**«.«**«*««»«***»*»»*«««*00080 

COMMON  CX(  5, 6  ),T( 600,8/5 )  00090 

C  00100 

C  INPUT  DATA  00110 

C  SPEED  -  SPEED  OF  TRAVELLING  LOAD  00120 

C  SPEED  XS  GIVEN  BY  SPEED-2 *DT/DTL  00130 

C  (WHERE  DT  XS  STEP  SIZE  OF  INTEGRATION,  DTL  XS  DURATION  OF  LOAD)  00140 

C  00150 

C  IN  CASE  4  SPEED  OF  TRAVELLING  LOAD  IS  GIVEN  BY  SPEED-1/N3  00160 

C  00170 

DATA  SPEED/O . 5/  00180 

C  00190 

CALL  READ< SPEED, DTL, WIDTH, RI,RO, DT, INDX)  00200 

INDX1-INDX/2+1  00210 

NSP1-2.005/SPEED+1  00220 

IND-INDX1-1  00230 

IF(MOD(XND,2).EQ.O)  JOE-2  00240 

IF(M0D(IND,2).EQ.l)  JOE-1  00250 

NP-< INDX/2+3-JOE )/2  00260 

NP1— NP+1  00270 

CALL  SUP0(NP,NSP1, JOE, WIDTH, RI,DT, INDX)  00280 

STOP  00290 

END  00300 

C  00310 

SUBROUTINE  R£AD(  SPEED, DTL, WIDTH, RI , RO,DT, INDX)  00320 

c . . . . . . .  ■  ■  - - 003 30 

C  PURPOSE;  TO  READ  THE  INITIAL  CONDITIONS  FROM  TAPE10  AND  PRINT  00340 

C  THEM  ON  TAPE15  00350 

c - 00360 

COMMON  CX(5,6)  00370 

DIMENSION  ROW(  20  )  00380 

REWIND  10  00390 

REWIND  15  00400 

READ( 10 , 100 )  DTL, WIDTH, RI,AO,DT, INDX  00410 

100  FORMAT(  ///24X, F5 . 2/16X, F4 . 2//////14X, F4 . 2/14X,F4 . 2//  00420 

+27X, F6 . 4/22X, 13 )  00430 

READ( 10,101 )( CI(  I, 2 ), 1-1,5 ), ( CZ( 1, 5 ), 1-1,5 ), (CZ( 1,5  ), 1-1,5 ),  00440 

♦  (CI( 1,6 ), I- 1,5 ),  (  CZ(  1, 1 ), Z-l, 5 ), (CZ( 1, 4), 1-1,5  )  00450 

101  FORMAT(///////7X,F7.4,4(10X,F7.4)/7X,F7.4,4(10X,F7.4)//  00460 

+7X, F7 . 4 , 4< 10X, F7 . 4 )/7X, F7 . 4 , 4(  10X, F7 . 4 )//7X, F7 . 4, 4( 10X, F7 . 4 )/  00470 

+7X,F7 . 4,4( 10X.F7 .4) )  00480 

DF-SPEED-2 . 0 "DT/DTL  00490 


127 


i 


IF( DF . GT . 1 . 0E-5  )  WRITE( 15 , 500 )  00*00 

*00  F0RMAT(//*  DATA  IN  TAPE 10  IS  NOT  SUITABLE  TO  THIS  PROBLEM*//)  00*10 

CALL  DATZ(NDATE)  0082b 

WRITE( 15,200)  NOATE, SPEED, WIDTH  008*0 

200  FORMAT (A1 2/*  TRANSIENT  RESPONSE  OF  INFINITELY  LONG  TUBE  SUBJECT*  00*40 
+•  TO  IMPULSIVE  TRAVELLING  LOAD  (CASE  4)*//  00*80 

+*  SPEED  OF  TRAVELLING  LOAD  -*,F4.2/*  WIDTH  OF  LOAD  -*,F4.2)  005*0 

REWIND  10  00*70 

READ( 10,103)  008*0 

103  FORMAT(  //// )  00**0 

DO  1  1-1,26  00600 

READ(  10,104 )(  ROW(  J),  J— 1,  20 )  00610 

1  WRITE ( 15,104 )( ROW( J), J— 1, 20 )  00620 

104  FORMAT(  20A4 )  00630 

RETURN  00*40 

END  00650 

C  00*60 

SUBROUTINE  3UP0< NP , NSP1 , JOE , WIDTH , RI , DT , INDX )  00670 

C - - - - - - . — . — . - . - . - -  -■'■■006*0 

C  PURPOSE;  TO  FIX  THE  SCHEME  OF  SUPERPOSITION  00690 

C - 00700 

COMMON  CI( 5, 6 ) ,T( 600,8,5 )  00710 

DIMENSION  ROW{  20 )  00720 

NSP— NSP1—1  00730 

NP1-NP+1  00740 

NP2-NP+2  00750 

NWIDTH— WZDTH/DT  00760 

DO  1000  1-3,  INDX.  2  00770 

NT-( FLOAT( I )— 1 . 999 )/FLOAT<  NSP )  00790 

Ml— ( I— NSP*NT )/2  00790 

NSM-( NSP1+1 )/ 2  00*00 

DO  10  W,8  00610 

READ( 10 , 100 )(  ROW(  J ) , J— 1 , 20 )  00820 

10  WRITE(15,100)(ROW( J),J-1,20)  00830 

100  FORMAT(  20A4  )  00840 

NWH-NWIDTH/2  00850 

IF( JOE . LE . 1  )LCI-NP1*( 2*( 1-1  )+3+NWIDTH )  00860 

IF(  JOE . EQ . 2 )LCI-(  NP1+NP2 )*(  2*(  1-1 )+2+NWIDTH )/2+NP2  00870 

LC— LCI— (  2*(  I— 1 )+3+NWIDTH )  00880 

CALL  RED(  I , NI , LCI , LC , NSP1 , NSM )  00890 

IF(I.LT.NSPl)  GO  TO  1000  00900 

IF(I.GT.HSPl)  GO  TO  14  00910 

CALL  INT(RI,DT,NI,NSP1,LC, WIDTH)  00920 

GO  TO  1000  00930 

14  IF( JOE.LE.l  )LCB— LC-2*NP*NSP  00940 

ZF(  JOE .  EQ_.  2  )LCB-LC-(  NP+NP1 )  *NSP  00950 

DO  23  Jl-l.LCB  00960 

23  T( J1 , 1 , NI )— T( J1 , 1 , NI )+2 . 0  *DT  00970 

DO  24  JA-l.LC  00990 

DO  24  JB— 1,LCB  009*0 

IF(T(JB,1,NI).NE.T( JA,1,NSM).0R.T(JB,2,NI).ME.T(JA,2,NSM))  01000 

400  TO  24  01010 
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DO  25  L-3,8  01020 

25  T(  JA,L,N3M)— T(  JA,1,NSM)+T(  JB,1,NI  )  01030 

24  CONTINUE  01040 

mu  tz(  15,200)  oioeo 

DO  26  JD-1,LC  01060 

DO  27  L-1,8  01070 

27  T(JD,L,NI)-T( JD,L,NSM)  01060 

WRITE ( 15,101 )(T(  JD,M, NX ) , M— 1, 8 )  01090 

101  FORMAT (  8F9. ♦)  01100 

IF(JD.EQ.LC)  GO  TO  26  OHIO 

IF(  T( JD, 1,NSM)  . NE .T(  JD+1, 1, NSM)  )  WRITE(  15 , 200 )  01120 

200  70RHAT( )  01130 

26  CONTINUE  01140 

IF(I.EQ.INDX-l)  WRITE( 15 , 201 )  01150 

201  FORMAT* 72<1H-))  01160 

1000  CONTINUE  01170 

RETURN  01180 

END  01190 

C  01200 

SUBROUTINE  RED* I, NI . LCI , LC. NSP1, NSM)  01210 

C - - - 01220 

C  PURPOSE;  TO  READ  DATA  FROM  TAPE 10  01230 

C - 01240 

COMMON  CI(5,6),T(600,8,5)  01250 

DIMENSION  TT( 8  )  01260 

Kl-1  01270 

13  READ( 10 , 101 )(  TT( J ) , J-l , 8 )  01280 

101  FORMAT( 8F9 . 4 )  01290 

XF(TT(2).EQ.0.0)  Kl-Kl-1  01300 

IF(TT( 2 ) . EQ. 0 . 0  )  GO  TO  11  01310 

DO  12  L-1,8  01320 

IF(I.LE.NSPl)  T(K1,L,NI)-TT(L)  01330 

12  IF(I.GT.NSPl)  T(IC1,L,NSM)”TT(L)  01340 

11  Kl-Kl+1  01350 

LCI-LCI-1  01360 

XF( X . LT.NSP1 . AND.TT(  2 ) . NE . 0 . 0 )  WRITE( 15 , 101 )( TT( J), J-l, 8 )  01370 

IF(  X  .IiT .NSP1 . AND .TT(  2  )  .EQ.0 .0 )  WRITE(  15 , 200 )  01380 

200  FORMAT( )  01390 

IF(Uri.GT.O)  GO  TO  13  01400 

RETURN  01410 

END  01420 

C  01430 

SUBROUTINE  INT( RI,DT, NI, NSP1,LC, WIDTH)  01440 

C - 01450 

C  PURPOSE;  TO  SUPERPOSE  THE  INITIAL  CONDITIONS  01460 

C - 01470 

COMMON  CX( 5, 6 ) ,T( 600,8,5 )  01480  , 

NL-NIDTH/2.0+2.0*DT  01490 

WU— WIDTH/ 2 , 0+2 . 0*DT  01500 

DO  10  Jl-l.LC  01510 

XF(  T(  J1 , 2 ,  NX  ) .  NE .  RI )  GO  TO  10  01520 

IF(  T(  J1 , 1 , NX ) . GE . WU )  GO  TO  11  01530 
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DO  12  L-3,8  01940 

12  T( J1,L,NI)-T( Jl,L,NI)+CI(l,L-2)  01990 

GO  TO  10  01990 

11  IF(T( J1,1,NI).GT.WU)  GO  TO  13  01970 

DO  14  L-3,8  01980 

14  T(  J1,L,NX )-T<  J1,L,NI  )+CI( 2,L— 2 )  01990 

GO  TO  10  01600 

13  IF{ T(J1,1,NI).GE.WL)  GO  TO  15  01610 

DO  16  L-3,8  01620 

16  T( J1,L,NX )-T( J1,L,NI )+CI(  3,L— 2 )  01630 

GO  TO  10  01640 

15  IF(T( J1.1,NI).GT.NL)  GO  TO  17  01690 

DO  18  L-3,8  01660 

18  T(  J1,L,NX )— T(  Jl, L, NZ )+CI(  4, L— 2 )  01670 

GO  TO  10  01680 

17  DO  19  L-3,8  01690 

19  T(  J1,L,NX )— T( J1,L,NX )+CI(  5 , L-2 )  01700 

10  CONTINUE  01710 

WRITE< 15 , 200  )  01720 

DO  20  Jl-l.LC  01730 

WRITE< 15 , 101 )(  T(  Jl , J , NX ) , J-l , 8 )  01740 

101  FORMAT ( 8F9 . 4 )  01790 

IF(Jl.EQ.LC)  GO  TO  20  01760 

XF(  T(  Jl,  1,NX  ) . NE  .T(  Jl+1, 1,NI  )  )  WRITE( 15 , 200 )  017*»0 

20  CONTINUE  01780 

200  FORMAT( )  01790 

RETURN  01800 

END  01810 
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PROGRAM  R£CTXNP( OUTPUT, TAPES , TAFE6 )  00010 

c  •.***.*«*«****.****«**«*.*****»*****...«***«**«******«***«******.«**oooao 

C  00030 

C  CASE  2  I  TRANSIENT  RESPONSE  OP  AN  INFINITELY  LONG  TUBE  SUBJECTED  00040 

C  TO  A  RECTANGULAR  INPUT  LOAD.  THE  DATA  OP  CASE  2  00050 

C  IS  RETRIEVED  PROM  TAPE5  FOR  SUPERPOSITION.  00050 

C  00070 

COMMON  CX(  3, 6 ),T( 600, 8,5)  00090 

C  00100 

C  INPUT  DATA  00110 

C  NTS  *  NUMBER  OP  TIME  STEPS  WHEN  THE  CONSTANT  LOAD  IS  REMOVED  00120 

C  DURATION  OP  LOADING  IS  GIVEN  BY  DTL-2*DT*NTS  00130 

C  (WHERE  DT  IS  STEP  SIZE  OP  INTEGRATION )  00140 

C  00150 

C  IN  CASE  4  SPEED  OP  TRAVELLING  LOAD  IS  GIVEN  BY  SPEED-1/NT3  00160 

C  00170 

DATA  NTS/ 2/  00150 

C  00190 

RS-2*NTS-1  00200 

CALL  READ(N3,RI,R0,DT,  INDX)  00210 

INDX1-INDX/2+1  00220 

NSP1-N3+2  00230 

IND-INDXI-1  00240 

LN-IND+1  00250 

IF(NOD( IND, 2 ) .EQ.O )  JOE-2  00260 

IP(M0D(IND,2).EQ.l)  JOE-1  00270 

NP— ( INDX/ 2+ 3- JOE  )/2  00290 

NP1— NP+1  00290 

CALL  3UP0( NP.NSP1, JOE, RI.DT, INDX, LN, NTS)  00300 

STOP  00310 

END  00320 

C  00330 

SUBROUTINE  READ( N3,RI ,RO,DT, INDX)  00340 

C - - - - - - — . — .  . .  — . .  . . . — . . 00350 

C  PURPOSE i  TO  READ  THE  INITIAL  CONDITIONS  PROM  TAPE5  AND  PRINT  00360 

C  THEM  ON  TAPE6  00370 

C - 00390 

COMMON  CI( 3,6 )  00390 

DIMENSION  ROW(  20 )  00400 

REWIND  5  00410 

REWIND  6  00420 

READ(  5 , 100  )RI ,  RO ,  DT ,  INDX  00430 

100  FORMAT( //////////14X, F4 . 2/14X, F4 . 2//27X, F6 . 4/22X, 13 )  00440 

READ(  5,101 )( Cl (  1,2  ), 1-1, 3  ),  ( CI(  I,  5  ),  1-1,  3  ),(CZ(  1,3  )« X— 1,3  ),  ^450 

+  (CI(  1,4  ),  1—1,3  ),  ( CI(  1, 1 ),  1-1, 3  ),(CZ(  1, 4) ,1-1, 3  )  00460 

101  F0RMAT(///////3(7X,F7.4,12X)/3<7X,F7.4,12X)//  00470 

+3(7X,F7.4,12X )/3( 7X,P7 . 4, 12X)//3(  7X,P7 . 4, 12E)/3( 7X,P7 ,4,12E) )  00490 

OTL-DT*(  NS+1 )  00490 
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CALL  DATE(NDAXE)  00*00 

wants, 200)  ndate,dtl  oosio 

200  PORMAT(A12/*  TRANSIENT  RESPONSE  OP  INPINITELY  LONG  TUBE  SUBJECT*  00*20 
+*  TO  RECTANGULAR  INPUT  LOAD  (CASK  2)*//  00*10 

+*  DURATION  TIME  OP  LOAD  -*,P9.2/  00*40 

♦*  WIDTH  OP  LOAD  -  SENI-INPXMOT*  >  00**0 

REWIND  S  OOMO 

READ( 5,103)  00870 

103  POHHAT( //// )  008*0 

DO  1  1-1,26  00#»0 

READ( 5 , 104 )( ROW( J), J— 1,20)  00*00 

1  WRin(  6, 104)(  ROW(  J),  J— 1, 20 )  00*10 

104  POKHAT(  20A4 )  00*20 

RETURN  00*30 

END  00*40 

C  00*50 

SUBROUTINE  SUP0(NP,NSP1, JOE. RI,DT, XNDX,LN,NTS )  OOMO 

C . . . .  — - - - - - —  - - - - 00*70 

C  PURPOSE;  TO  PXX  THE  SCHEME  OP  SUPERPOSITION  00* SO 

C - - 004*0 

COMMON  CX( 3, 6 ),T( 600,8,5 )  00700 

DIMENSION  R0W( 20  ),TEM( 600,8 )  00710 

NSP— NSP1— 1  00720 

NP1-NP+1  00730 

RP2-MF+2  00740 

DO  1000  1—3 , INDX, 2  007*0 

NT-( PLOAT( I )-l . 999 )/PUJAT( NSP )  007*0 

MI— { I— NSP*NT )/2  00770 

NSM-(NSP141)/2  007*0 

DO  10  L-1,8  007*0 

READ(  5 , 100  )(  R0W(  J ) ,  J— 1 , 20  )  00*00 

10  WRin(6,100)(R0W( J),J-1,20)  00*10 

100  PORMAT(20A4)  00*20 

IP(JOE.LE.l)LCI-NPl*(2*(I-l)+5)  00*30 

IP< JOE.EQ.2)LCI-(NPl+NP2)*( 2*( 1-1 )+4  )/2+NP2  00*40 

LC-LCI— ( 2*( 1-1 )+5 )  00*90 

CALL  RED( I ,NI , LCI , LC , NSP1 , NSM.LN , DT , NTS  )  00*60 

XP(I.LT.NSPl)  00  TO  1000  00*70 

XP(I.GT.NSPl)  GO  TO  14  OOMO 

CALL  XNT(  RI , DT, NX , NSP1 , LC , NSM )  00*90 

GO  TO  1000  00900 

14  IF(  JOE .  UE .  1  )LCB— LC-2  *NP*NSP  00910 

IP( JOE . EQ . 2 )LCB— LC-(  NP+NP1 ) *NSP  00920 

DO  23  Ll-l.LC  00*30 

DO  23  L-1,8  00*40 

23  TEM(L1,L)«T<L1,L,HSM)  009*0 

LCB-LCB+NT3«LN  009*0 

DO  24  JA^l.LC  00*70 

DO  24  JB-l.LCB  009*0 

XP(T(JB,1,NX).NE.T(JA,1,NSM).0R.T(JB,2,NI).NE.T(JA,2,M8M))  00*90 

+G0  TO  24  01000 

DO  25  JC-3,8  01010 
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25  T(  JA, JC,NSM)-T{ JA, JC,NSM)-T( JB, JC,NI  )  01020 

24  CONTINUE  01030 

MUTE(  6,200)  01040 

00  26  JD-1,LC  010*0 

00  27  L-1,8  010*0 

27  T(  JD,L,NI  )-TEN< JD,L)  01070 

IF( JD.LE.LC-LN)  CO  SO  26  010*0 

DO  29  M-1,NTS  01090 

T(  JD+M*UJ ,  1 ,  HI  >-TEM(  JD ,  1  )+2  *M*DT  01100 

00  29  L-2,8  OHIO 

29  T(OfD+M*W,L,NI)-TEM( JD,L)  01120 

28  WRITE(6,101)(T( JD,M,NSM) ,M-1,8 )  01130 

101  FORNAT(8F9.4)  01140 

XF(JD.EQ.DC)  GO  TO  26  01150 

IF<T<JrD.l,NSM).NE.T<JD+l,l,NSM))  WRXTE< 6 , 200 )  01160 

200  FORMAT( )  01170 

26  CONTINUE  011*0 

IF(I.EQ.INDX-l)  WRITE ( 6 , 201 )  01190 

201  FOKMAT( 72( IB- ) )  01200 

1000  CONTINUE  01210 

RETURN  01220 

END  01230 

C  01240 

SUBROUTINE  R£D< I,NI,LCI.LC,NSP1,NSM,LN,DT,NTS)  01250 

C -  - - - -  - - - - - . . —012*0 

C  PURPOSE;  TO  READ  DATA  FROM  TAPE  5  01270 

c - : - 012*0 

COMMON  CX( 3,6 ),T( 600,8,5 )  01290 

DIMENSION  TT( 8 )  01300 

Kl-1  01310 

13  READ(5,101)(TT(J),J-1,8)  01320 

101  F0RKAT(8F9.4)  01330 

XF(TT(2).EQ.0.0)  Kl-Kl-1  01340 

XP( TT( 2 ) .EQ .0.0)  GO  TO  11  01350 

DO  12  L-1,8  013*0 

IF(X.LE.NSPl)  T(JC1,L,NI)-TT(L)  01370 

12  IF(X.GT.NSPl)  T(K1,1,NSM)-TT(L)  013*0 

IF(Kl.LE.LC-LN)  GO  TO  11  01390 

DO  14  M-1.NT3  01400 

T<K1+M*LH,1,NI)-TT<1)+M*2*DT  01410 

DO  14  L-2,8  01420 

14  T(  K1+M*LN ,  It,  NX  )-TT(  L )  01430 

11  K14U41  01440 

LCI-LCI-1  01480 

XF( X.IiT.NSPl.AND.TT(  2  ) .NE.0.0 )  WRITE(  6 , 101 )( TT(  J),J-1,8)  014*0 

XF(X.LT.N3P1.AND.TT(2).EQ.0.0)  WRITE( 6 , 200 )  01470 

200  FORMAT(  )  014*0 

15  IF(LCX.CT.O)  GO  TO  13  014*0 

RETURN  01500 

END  01510 

C  01520 

SUBROUTINE  XNT(RZ,DT,NX,N3P1,LC,NSM)  01530 
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PURPOSE;  tO  SUPERPOSE  THE  XXXTXAL  CONDITIONS 

COMMON  CI( 3,6  ),T( 600, >, 5 ) 

DO  10  J1«1,LC 
DO  17  lei.  5 

17  T( J1,L,RSM)-T( Jl.l.NX) 

IF(T< Jl, 2, SI). ME. HI)  00  TO  10 
XF(T<Jl,l,WX).GE.O. )  GO  TO  11 
DO  12  L-3,5 

12  T< Jl,t.RSN)-T(Jl,t,NI)-CI(l,t-2> 

GO  TO  10 

11  XP(T(J1,1.1IX).GV.0.)  00  TO  13 
DO  14  L-3,6 

14  T( J1,L,SSM)"T( J1,1,HI )-CI(  2,1-2 ) 

00  TO  10 

13  DO  16  1-3,5 

16  T<Jl.L,R3M)-T(Jl.I..IH)-CX(3,L-2) 

10  CONTZMOE 

WRITE( 6 , 200 ) 

DO  20  Jl-l.LC 

NRITE( 6 , 101 )( T< J1 , J . NSM ) , J-l , • ) 

101  FORH5T(8F9.4) 

IF(  Jl.EQ.LC)  00  TO  20 

IF(T( Jl, 1,NSM) .ME ,T(  Jl+1, 1,N3M) )  NRITB( 6 , 200 ) 
20  CONTXMDE 
200  FORMKT(  ) 


-01540 

01550 

-01550 

01570 

01550 

01550 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01660 

01650 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01750 

01750 

01500 

01610 

01520 
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APPENDIX  G 


PROGRAM  LISTING  OF  PLOTALL 


PROGRAM  PL0TALL(00TPUT,TAP21,TAPE3, TAPES, TAPE7,TAPE10,TAP112, 
+  TAPE15 , TAPE17 , SAPE20 ) 


PURPOSES  TO  PLOT  THE  VARIABLES  AT  SELECTED  POINTS  ACCORDING  TO 
TIME  ON  THE  CALCOMP  PLOTTER  AND  TO  PRINT  THE  VARIABUES 
AT  THOSE  POINTS  ACCORDING  TO  TIME  ON  TAPE  NTO 

THE  DATA  OF  THIS  PROGRAM  IS  RETRIEVED  PROM  TAPE  NTI 


DIMENSION  Z(6),R<6),T(6.6,35),XA(35),TA(35) 

INPUT  DATA 

SET  MCASE-1  IP  NUMBER  OF  CASE  IS  1 
NCASE-2  FOR  CASE 2 
NCASE-3  FOR  CASE3 
MCASE-4  FOR  CASE4 

SET  NOPTION-1  IF  ONLY  PLOTTING  IS  REEDED 
NOPTION-2  IF  ONLY  PRINTING  IS  NEEDED 
NOPTION-3  IF  BOTH  OF  PLOTTING  AND  PRINTING  ARE  NEEDED 


SET  NLOAD-1  IF  DURATION  OF  LOAD  IS  PERMANENT 
NLOAD-2  IF  DURATION  OF  LOAD  IS  FINITE 

Z(K)  STANDS  FOR  Z-COORDINATE  OF  THE  SELECTED  POINTS 
R(K)  STANDS  FOR  R-COORDIMATE  OF  THE  SELECTED  POINTS 
K;  THE  MAXIMUM  NUMBER  OP  THE  POINTS  IS  6 

DATA  MCASE , NOPTION , NLOAD/2 ,3,2/ 

DATA  ( Z(K), X-l, 6 )/0. 00, 0.00, 0.00, 0.08, 0.08, 0.08/ 
DATA  ( R( K ) , K«1 , 6 )/l . 02 , 1 . 14, 1 . 30, 1 . 02 , 1 . 14 , 1 . 30/ 

IF(NCASE.EQ.l)  NTI-1 
IF(MCASE.EQ.I)  NTO-3 
IF( MCASE .EQ . 2 )  NTI-5 
IF( NCASE .EQ . 2  )  NTO-7 
IF( NCRSE . EQ . 3 )  NTI-10 
IF( NCASE .EQ. 3 )  NTO- 12 
IF(  NCASE , EQ . 4 )  NTI-15 
IF( NCASE .EQ. 4 )  NTO-17 
REMIND  NTI 

IF( NCASE . RE . 4 )  GO  TO  1 
READ< 15,100)  DTL, WIDTH 
100  FORMAT( ///27X, F4 . 2/16X, F4 . 2 ) 

GO  TO  2 

1  IF( NCASE . ME . 2 )  GO  TO  3 


00010 
00020 
**00030 
00040 
00050 
00060 
00070 
OOOSO 
00090 
00100 
» *00110 
00120 
00130 
00140 
00150 
00160 
00170 
001S0 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00290 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
003 SO 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00490 
00490 
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Z7(NLQ2D.EQ.l)  READ(5,101)  00800 

101  70RHAT< //// )  00810 

I7(NL02D.EQ.2)  READ(5,102)  DTL  00820 

102  70RM2T(///25X,74.2/)  00820 

GO  TO  2  00840 

3  X7( MCASE .  MS . 3 )  00  TO  4  00820 

I7(NLQ2D.EQ.l)  READ< 10 , 103 )  WIDTH  00880 

103  70RM2T(////16X,74.2)  00570 

X7(NL02D.EQ.2)  8220(10,104)  DTL, WIDTH  00880 

104  70RM2T(///25X,74.2/16X,74.2 )  00580 

4  X7( MCASE. SQ.l)  8220(1,101)  00800 

2  822D( HTZ , 105 )  RI,RD,DT, INDX  00810 

105  70RM2T( /////14X,74.2/14X,74.2//27X,76 . 2/22X, 13  )  00820 

XMaXl-XMDE/241  00830 

XMDX2-XRDX141  00840 

IHP-IMDOa-1  00850 

I7(MDD(  IND,2).EQ.O)  JOE-2  00860 

I7(MOO(  HQ),  2  )  .EQ .  1 )  JOE-1  00870 

CALL  HE2D(Dr,XNDX,XNDXl,IND,  JOE, WIDTH, 2,R,T,XA,  00880 

+  NCA3E , NTI , NTO )  00890 

ir(NOPTION.KE.l)  CALL  W8IT( NLOAD,  DTL,  WIDTH, INDX1 , IND, Z,R,T,XA,  00700 
4  NC25E , NTI , WTO )  00710 

IP( NOVTION .NE . 2 )  CALL  3B7L( WLOAD, DTL, WIDTH, DT, ZKDXl.IMD, Z8DX2,  00720 
4  Z,R,T,X2,TA,lfC25E,NTI,NT0)  00730 

STOP  00740 

END  00750 

C  00760 

SOBROOTINE  READ(DT,  INDX,  INDX1,IND,  JOE,  WIDTH,  Z,R.  T,»,  00770 

4  HCASE , MTI , WTO )  00780 

C - -00790 

C  PURPOSE;  TO  READ  DATA  780M  TAFE10  00800 

C - - - - - - - - -  - . . .  ■■  ■  -  00810 

DIMENSION  Z(6),R(6),T(6,6,  IHD  )  ,  X2(  XND  ) ,  TT(  8),  Cl  (5, 6)  00820 

00830 

READ  INTIAL  CONDITIONS  00840 

00850 

IF(NCASE.GT.l)  GO  TO  20  00860 

RE2D( 1,100  )(CI(K, 2 ),E-2, 3 ) , (CI(K,5 ),X-2, 3 ) ,  (CI(K, 3 ),E— 2,3 ),  00870 

4  (CI(K,6),K-2,3),(CI(R,1),K— 2,3),(CI(K,4),X— 2,3)  00880 

100  FORN2T( ////////7X,77 .4, 39X,F7 . 4/7X, 77 , 4, 39X,77 . 4//7X,  00890 

4  77. 4,39X,77.4/7X,77.4,39X,77.4//7X,77. 4,392,77.4/  00900 

4  7X,T7 ,4, 39X, 77 . 4/ )  00910 

GO  TO  21  00920 

20  Z7( NCRS2 . GT . 2 )  GO  TO  22  00930 

RE2D(5,101)(C1(K,2),E-1,3),(CI(X,5),R-1,3),(CI(E,3),I6-1,3),  00940 

4  (CX(K,6  ),K— 1,3  ),  (CZ(X,1),X— 1,3  ),(CZ(X,4),X— 1,3  )  00950 

101  70RN2T( ///////7X, 77 . 4, 2( 19X, 77 . 4 )/7X, 77 . 4, 2( 19X,  77 . 4 )//7X,77 . 4,  00980 

4  2(19X,77.4)/7X,77.4,2(19X,77.4)//7X,77.4,2<19r,77.4)/7X,  00970 

4  77.4,2(192,77.4)/)  00980 

GO  TO  21  00990 

22  RE2D(RTI,102)(CI(K,2),X-1,5),(CI(X,3),X-1,5),(CI(X,1),X-1,5),  01000 

4  (CX(K,5),K-1,5),(CI(K,1),X-1,5),(CI(K,4),K-1,»)  01010 
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102  FQMAT(  ///////7X,F7 .4, 4{  10X,F7 .4)/7X#F7 •  4, 4(  10X,F7  .♦)//  01020 

+7X, F7 . 4,  4<  10X,  F7 . 4  )/7X, F7 . 4, 4<  10X,  P7 . 4  )//7X,F7 . 4, 4<  10X.F7. 4 )/  01030 

+7X,F7 . 4,4(  10X,F7  .4)/  )  01040 

21  DO  1  X-1,6  01080 

XF(X(X).HE.1.0)  00  TO  1  01080 

WL-WIDTH/2 . 0  01070 

W— W,  01080 

XF( NCA5E . LE . 2  )  IKM).0  01080 

XF(Z(K).OE.NU)  00  TO  2  01100 

DO  3  L-1.6  OHIO 

3  T(X,L,1)-CI(1,1)  01120 

00  TO  1  01130 

2  IF(Z(K).GT.WU)  GO  TO  4  01140 

DO  5  L-1,6  01180 

5  T(K,L,1)-CI(2,L)  01160 

GO  TO  1  01170 

4  IF(NCASX.LE.2)  GO  TO  23  01180 

IF(Z<K).QS.WL)  00  TO  6  01190 

23  DO  7  L-1,6  01200 

7  T(  X,  L,  1  )— CX(  3 ,  L  )  01210 

00  TO  1  01220 

6  XF( Z(K  )  .OT.WL)  GO  TO  8  01230 

DO  9  L-1,6  01240 

9  T(  X,  L,  1 )— CI(  4,  L  )  01280 

00  TO  1  01260 

6  DO  10  L-1,6  01270 

10  T(K,L,1)-CI(5,L)  01280 

1  CQHTUTOE  01290 

IfWIOTH-WIOTH/DT  01300 

HP— (  HIDX1+2— JOE )/2  01310 

XPl-ilP+1  01320 

MP2-KP+2  01330 

DO  11  X-2.XMDX  01340 

XF(NCASE.ZQ.l)  GO  TO  40  01380 

XF(NOD( X, 2 )  .EQ.Q )  00  TO  11  01360 

40  IF(  NCASE . CT . 1 )  00  TO  24  01370 

IF(JOE.ZQ.l)  LCI-t0?l*(  X+2  )  01380 

»►(  1-2  )*0. 3+2.0  01390 

XN-RM  01400 

DM-RM-XM  01410 

XF(0H.EQ.0.0.A.J0E.EQ.2)  LCX-(KP1+HP2)*IX  01420 

IF(DM.GT.O.O.A. J0X.ZQ.2 )  LCX-< KP1+KP2 ) *HI+NP2  01430 

GO  TO  23  01440 

24  IF{  HCA3E .  OT .  2  )  00  TO  26  01450 

XF(JOB.BQ.l)  LCI-XP1*(  3+2*1)  01460 

XF( J0E.EQ.2)  LCI-( MP1+HP2 ) *( 1+1 )+KP2  01470 

00  TO  23  01480 

26  IF(I*CA5E.KE.3  )  00  TO  27  01490 

XF(JOB.EQ.l)  IiCI— XP1*(  2*(  X— 1  )+3+mfXDTH )  01800 

XF(JOX.EQ.2)  LCI-( NP1+MP2 ) *( 2*( X-l )+2+WWXDTH )/2+MPl  01810 

00  TO  25  01820 

27  XF(JOE.ZQ.l)  LCX-NFl*(2*(X-l)+3+IWXDTB)  01830 
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IF(  JOE. JEQ. 2)  LCI"(NP14NP2  )'(  2*(  I— 1 )424NWIDTH )/24MPl  01940 

C  01990 

C  READ  STRESSES  AT  SPECIFIED  POINTS  01990 

C  01970 

25  READ(  NTI , 103 )  01990 

103  FORMAT( ///////)  01990 

12  READ(NTI,104)<TT< J),J-1,9)  01900 

104  FORMAT(BF9.4)  01910 

IB-I/241  01990 

DO  13  K-1,6  01930 

IF(Z(K).NE.TT<l).OR.R<X).NE.TT(2))  00  TO  13  01940 

XA<  IB  )-DT«<  1-1 )  01990 

DO  14  L-3,8  01990 

14  T(X,L-2,IH)-TT(L)  01970 

13  CONTINUE  01490 

LCI-LCI-1  01990 

IF(LCI.GT.O)  OO  TO  12  01700 

11  CONTINUE  01710 

RETURN  01720 

END  01730 

C  01740 

SUBROUTINE  NRIT(NLQAD, DTL, WIDTH, INDX1. IND,Z,R, T, EE. NCASE, NTI, NTO)  01790 

C - 01790 

C  PURPOSE;  TO  PRINT  THE  VARIABLES  AT  THE  SPECIFIED  POINTS  01770 

C  ACCORDING  TO  TIME  01790 

C - 01790 

DIMENSION  Z(6),R(6),T(6,6,  IND  ) ,  XA(  IND  )  01900 

REMIND  NTO  01910 

IF( NCASE. GT.l)  GO  TO  10  01920 

WRITE( 3,200)  NCASE  01990 

200  FORMAT(SX, 'CASE*,  I2/5X, 'DURATION  TIME  OF  LOAD  -  PERMANENT*/ 9X,  01940 

4  *WIDTH  OF  LOAD  -  SEMI - INFINITE * )  01990 

GO  TO  11  01990 

10  IF(  NCASE . GT . 2 )  GO  TO  12  01970 

IF( NLOAD. EQ.l)  WRITE(  7,200)  NCASE  01990 

IF(NL0AD.EQ.2 )  WRITE(7,201)  NCASE. DTL  01990 

201  FORMAT( SX, *CASE*, I2/5X, 'DURATION  TIME  OF  LOAD  -  '.F6.3/5X,  01900 

4  •WIDTH  OF  LOAD  -  SEMI-INFINITE' >  01910 

GO  TO  11  01920 

12  IF( NCASE . NE . 3 )  GO  TO  13  01930 

IF( NLOAD .EQ.l)  MRITE( 12 , 202 )  NCASE, WIDTH  01940 

202  F0RMAT(5X, 'CASE*, I2/5X, 'DURATION  TIME  OF  LOAD  -  PERMANENT*/ 5X,  01950 

4  •WIDTH  OF  LOAD  -*,F6.3)  01990 

IF( NLOAD .EQ . 2 )  WRITE< 12 , 203 )  NCASE, DTL, WIDTH  01970 

203  F0RMAT(5X, 'CASE', I2/5X, 'DURATION  TIME  OF  LOAD  -'.FS.3/5X,  01990 

4  •WIDTH  OF  LOAD  -»,F6.3)  01990 

GO  TO  11  02000 

13  WRITE( 17,204)  NCASE, DTL, WIDTH  02010 

204  F0RMAT(5X, 'CASE', I2/5X, 'SPEED  OF  TRAVELLING  LOAD  -*,P6.3/5X,  02020 

4  'WIDTH  OF  LOAD  «»,P6.3)  02030 

11  DO  1  K-1,6  02040 

WRITE( NTO, 205  )  R(K),Z(X)  02090 


208  roaa 

♦#8X,  *1 
00  2 
2  mm 
2o«  raan 

i  com: 


AT( /////*  TBS  P0XNT  Rf*,P8.3,*  Z-*.P7.3/32<ia-)//SX,  *T0W* 
•SIRR*,  5X,  *SITT*f  SX,  *3ZZ2*/SX,  *81X2* ,  8X,  *OR*,7X,  *UI*/«3<  IS- )  ) 
X-l.XMD 

S(NTO, 208 )  XA( Z),(T(K,J,Z), J«1 , 8 ) 

AT< 7P8.8) 


3BPL<NLOAD,  DTL,  WIDTH,  DT,INDX1,  IND,  XNDX2,Z,R,T,XA,YA, 
NCASZ , NTX , MTO ) 


02080 

02070 

02080 

02080 

02100 

02110 

02120 

02130 

02180 

021S0 

02180 


PURPOSE;  TO  PLOT  THE  VARIABLES  AT  THE  SELECTED  POINTS 
ACCORDING  TO  TIME 


DIMENSION  Z(6),X(6),T<6,6,XND),XA<XMDX2),XA(ZNDX2) 
CALL  PL0T3(  20) 

CALL  OPTXOM(  2  ) 

DO  1  X-1,6 

IP(K.EQ.l)  CALL  PL0T( 0 . 5 , 1 . 5 ,  -3  ) 

XP(K.GT.l)  CALL  PL0T< 15 .5. 0 .0.-3 ) 

CALL  FACTOK(  0.55) 

TA(INDXl)— 3.0 
TA( INDX2 )— O . S 
XA< INDX1 )— 0 . 0 

XA(  XMDX2  )-DT*FLOAT(  XND  )/S .  0 
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APPENDIX  H 

PLOTS  OP  DEPENDENT  VARIABLES 


I 

i 


CASE  1 

DURATION  TIME  OF  LOAD  -  PERMANENT 
WIDTH  OF  LOAD  -  SEMI-INFINITE 
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THE  POINT  R-  I. 000  2-  0.000 


TOW 

SIRR 

SITT 

0.0000 

1.0000 

.1765 

.0400 

1.0000 

.1391 

.0800 

1.0000 

.1029 

.1200 

1 . 0000 

.0678 

.1600 

1.0000 

.0337 

.2000 

1 . 0000 

.0008 

.2400 

1 . 0000 

-.0312 

.2800 

1.0000 

-.0621 

.3200 

1.0000 

-.0920 

.3600 

1.0000 

-.1208 

.4000 

1.0000 

-.1487 

.4400 

1 . 0000 

-.1757 

.4800 

1 . 0000 

-.2017 

.5200 

1.0000 

-.2267 

.  S600 

1 . 0000 

-.2508 

SIZZ 

SIRZ 

UR 

0 . 0000 

0.0000 

-1 . 0000 

0.0000 

0 . 0000 

-.9707 

0 . 0000 

0.0000 

- . 9417 

0.0000 

0 . 0000 

-.9130 

0 . 0000 

0 . 0000 

-.8847 

0.0000 

0 . 0000 

-.8568 

0.0000 

0 . 0000 

-.8293 

0.0000 

0.0000 

-.8021 

0 . 0000 

0 . 0000 

-.7755 

0 . 0000 

0 . 0000 

-.7492 

0 . 0000 

0 . 0000 

-.7235 

0.0000 

0 . 0000 

-.6982 

0 . 0000 

0 . 0000 

-.6734 

0.0000 

0 . 0000 

-.6491 

0.0000 

0 . 0000 

-.6253 

THE  POINT  R-  1.120  Z-  0.000 


TOW  SIRR  SITT 


0.0000 

0 . 0000 

0.0000 

.0400 

0 . 0000 

0.0000 

.0800 

0 . 0000 

0.0000 

.1200 

.8840 

.1560 

.1600 

.8798 

.1259 

.2000 

.8756 

.0968 

.2400 

.8715 

.0685 

.2800 

.8674 

.0412 

.3200 

.8634 

.0148 

.3600 

.8594 

-.0108 

.4000 

.8556 

-.0355 

.4400 

.8517 

-.0594 

.4800 

-.0360 

-.2385 

.5200 

-.0349 

-.2902 

.5600 

-.0246 

-.3402 

SIZZ 

SIRZ 

UR 

0.0000 

0.0000 

0.0000 

0 . 0000 

0 . 0000 

0 . 0000 

0.0000 

0 . 0000 

0 . 0000 

0 . 0000 

0.0000 

-.8840 

0.0000 

0 . 0000 

-.8567 

0.0000 

0 . 0000 

-.8298 

0 . 0000 

0 . 0000 

-.8032 

0 . 0000 

0 . 0000 

-.7771 

0 . 0000 

0 . 0000 

-.7514 

0 . 0000 

0.0000 

-.7261 

0 . 0000 

0.0000 

-.7012 

0 . 0000 

0 . 0000 

-.6769 

0 . 0000 

0.0000 

-1.5369 

0 . 0000 

0 . 0000 

-1.5319 

0 . 0000 

0 . 0000 

-1.5181 

UZ 


.1765 

.1695 

.1634 

.1574 

.1516 

.1460 

.1405 

.1353 

.1302 

.1252 

.1205 

.1159 

.1115 

.1072 

.1031 


UZ 


0.0000 

0.0000 

0.0000 

.1667 

.1597 

.1534 

.1474 

.1418 

.1364 

.1313 

.1264 

.1218 

-.0494 

-.0247 

-.0665 


THE  POINT  R-  1.300  Z-  .020 


TOW 

SIRR 

SITT 

SIZZ 

SIRZ 

OR 

uz 

0 . 0000 

0.0000 

0.0000 

0 . oooc 

0 . 0000 

0.0000 

0.0000 

.0400 

0.0000 

0.0000 

0.0000 

0 . 0000 

0 . 0000 

0 . 0000 

.0800 

0.0000 

0.0000 

0.0000 

0 . 0000 

0 . 0000 

0.0000 

.1200 

0 . 0000 

0.0000 

0 . 0000 

0 . 0000 

0 . 0000 

0.0000 

.1600 

0 . 0000 

0 . 0000 

0 . 0000 

0 . 0000 

0.0000 

0.0000 

.2000 

0.0000 

0.0000 

0.0000 

0 . 0000 

0.0000 

0.0000 

.2400 

0 . 0000 

0 . 0000 

0 . 0000 

0 . 0000 

0.0000 

0.0000 

.2800 

0.0000 

0.0000 

0.0000 

0 . 0000 

0 . 0000 

0.0000 

.3200 

0 . 0000 

-.0299 

.0038 

0 . 0000 

-1.4927 

-.0088 

.3600 

0.0000 

-.0743 

-.0038 

0.0000 

-1 . 4704 

-.0088 

.4000 

0.0000 

-.1179 

-.0110 

0.0000 

-1 . 4529 

-.0236 

.4400 

0.0000 

-.1588 

-.0028 

0 . 0000 

-1.4373 

-.0373 

.4800 

0.0000 

-.2006 

-.0040 

0.0000 

-1.4225 

-.0439 

.5200 

0 . 0000 

-.2419 

-.0041 

0 . 0000 

-1.4085 

-.0518 

.5600 

0.0000 

-.2828 

-.0041 

0 . 0000 

-1.3951 

-.0597 

THE  POINT  R-  1.000  Z-  .080 


TOW 

SIRR 

SITT 

SIZZ 

SIRZ 

UR 

UZ 

0.0000 

1.0000 

.1765 

.1765 

0.0000 

-1.0000 

0.0000 

.0400 

1 . 0000 

.1382 

.1707 

0 . 0000 

-.9768 

0.0000 

.0800 

1.0000 

.0797 

.0261 

0 . 0000 

-.9633 

.1383 

.1200 

1 . 0000 

.0442 

.0268 

0.0000 

-.9200 

.1316 

.1600 

1 . 0000 

.0101 

.0271 

0.0000 

-.8800 

.1254 

.2000 

1.0000 

-.0225 

.0274 

0 . 0000 

-.8429 

.1194 

.2400 

1.0000 

-.0537 

.0277 

0 . 0000 

-.8081 

.1135 

.2800 

1.0000 

-.0836 

.0280 

0 . 0000 

-.7751 

.1079 

.3200 

1.0000 

-.1124 

.0283 

0 . 0000 

-.7439 

.1024 

•  3600 

1 . 0000 

-.1399 

.0287 

o . oooq 

-.7141 

.0972 

.4000 

1.0000 

-.1664 

.0290 

0 . 0000 

-.6856 

.0921 

.4400 

1 . 0000 

-.1918 

.0293 

0 . 0000 

-.6582 

.0872 

.4800 

1.0000 

-.2162 

.0296 

0 . 0000 

-.6319 

.0824 

.5200 

1 . 0000 

-.2396 

.0299 

0.0000 

-.6066 

.0779 

.5600 

1.0000 

-.2621 

.0302 

0.0000 

-.5822 

.0735 
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THE  POINT 

R-  1.120 

Z-  .080 

SIRZ 

OR 

OZ 

TOW 

SIRR 

3ITT 

SIZZ 

0.0000 

0.0000 

0 . 0000 

0 . 0000 

0 . 0000 

0 . 0000 

0.0000 

.0400 

0.0000 

'  0000 

0.0000 

0 . 0000 

0 . 0000 

0.0000 

.0800 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

.1200 

.9449 

.1667 

.1667 

0 . 0000 

-.9449 

0.0000 

.1600 

.9107 

.0909 

.0181 

- . 0096 

-.8660 

.1408 

.2000 

.8985 

.0623 

.0231 

-.0208 

-.8244 

.1299 

.2400 

.8895 

.0338 

.0237 

-.0208 

-.7892 

.1235 

.2800 

.8816 

.0065 

.0240 

-.0192 

-.7562 

.1177 

.3200 

.8746 

-.0195 

.0243 

-.0176 

-.7250 

.1122 

.3600 

.8682 

-.0445 

.0245 

-.0163 

-.6955 

.1070 

.4000 

.8623 

-.0684 

.0247 

-.0153 

-.6674 

.1020 

.4400 

.8569 

-.0913 

.0248 

-.0143 

-.6406 

.0972 

.4800 

-.0931 

-.2800 

-.1417 

-.0135 

-1.5597 

.0926 

.5200 

-.0492 

-.3358 

-.0050 

-.0153 

-1.5203 

-.0532 

.5600 

-.0841 

-.3709 

-.0180 

-.0268 

-1.542S 

-.0482 

THE  POINT 

R-  1.300 

Z-  .060 

SIRZ 

OR 

OZ 

TOW 

SIRR 

3ITT 

SIZZ 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0 . 0000 

0.0000 

.0400 

0 . 0000 

0 . 0000 

0 . 0000 

0 . 0000 

0.0000 

0.0000 

.0800 

0 . 0000 

0 . 0000 

0 . 0000 

0 . 0000 

0.0000 

0.0000 

.1200 

0 . 0000 

0.0000 

0.0000 

0 . 0000 

0 . 0000 

0.0000 

.1600 

0 . 0000 

0 . 0000 

0.0000 

0 . 0000 

0.0000 

0.0000 

.2000 

0.0000 

0 . 0000 

0 . 0000 

0.0000 

0 . 0000 

0 . 0000 

.2400 

0.0000 

0 . 0000 

0 . 0000 

0.0000 

0.0000 

0.0000 

.2800 

0 . 0000 

0 . 0000 

0.0000 

0 . 0000 

0 . 0000 

0.0000 

.3200 

0 . 0000 

-.0422 

.0105 

0 . 0000 

-1.5093 

-.0164 

.3600 

0.0000 

-.2978 

-.5008 

0 . 0000 

-1.5329 

.4742 

.4000 

0 . 0000 

-.2694 

-.0174 

0 . 0000 

-1 . 4902 

-.0148 

.4400 

0.0000 

-.3123 

-.0175 

0 . 0000 

-1 . 4547 

-.0227 

.4800 

0.0000 

-.3533 

-.0107 

0 . 0000 

-1.4312 

-.0374 

.5200 

0.0000 

-.3949 

-.0120 

0 . 0000 

-1 . 4102 

-.0442 

.5600 

0 . 0000 

-.4357 

-.0120 

0 . 0000 

-1.3921 

-.0521 

4-Z 


DURATION  T I  HE  OF  LOAD  =  PERCENT 
width  or  LORD  =  SE  HI  - 1  Nr  IN  I  it: 


BSLf  -flX'.S 


-SI  TT 
SIZZ 
SIRZ 


DURATION  TIME  OF  LORD  =  PERMANENT 


width  of  load  =  semi- infinite: 


DURATION  TIME  OF  LOAD  =  0-04 
WIDTH  OF  ICAO  =  SEMI- INFINITE 


SIRR 

SITT 

SIZZ 

SIRZ 

UR 


UZ 


OURRT I  ON  TIME  OF  LORD 
WIDTH  OF  LORD  =  SF.MI-INF 


AXIS 
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CASE  2 

R=i.l2  Z  =  0 .08 


q-SIRR 

a-SITT 

+  -SIZZ 

X-SIRZ 

<j>-UR 

*-UZ 


0URfiTICN  TIME  Of  LORD  :  0.08 
WIDTH  OF  LORD  =  SEMI-INFINITE: 

s'  1 1  aTt  -a  FTa  FI?  cT*»  TT*  o' » 

t  tne-fix is 

Pliur*  32 


— k-‘ — 
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CASE  2 

R  = 1  .30  Z  =  Q  .06 


0 -SI RR 
a-sitt 
+  -s  I  zz 

X-SIRZ 

0-UR 

*-UZ 


DURATION  TIME  OF  LORO  =  0.08 
WIOTH  OF  LORD  =  SEMI- INFINITE 

*2  ;  v  <t  a'- 1 •  7n  TTio  Tli  o'. 4 a 

T  Iflf-fiX {3 

Fi«ur*  33 


g 


©-SIRR 
a-S!TT 
+  -5IZZ 
x -S  I RZ 

<j>~UR 

^-UZ 


DURATION  TIME  OF  ICAO  =  PERMANENT 
WIITH  OF  LOAD  =  0.04 

iT5c  j'i»  a'. i»  e*  a  aria  cTjj  T*?  o’***  cTI  I'. ts 

TCHE-fiXtS 


flgux*  J& 


SIRR 
SITT 
SIZZ 
SIRZ 
UR 
UZ 


SJRftMCN  TIME  OH  LCFtO 
WICTH  or  LCfiO  =0.04 


0 .04 


2 


r  £  c;  p. 
>w  n  ^  r. 


30 


z=n 


n  r> 
■J  o 


3 


T- 


*  P 

i  ■* 


<t>-UR 

-UZ 


■ 1  «...— pT^r**-.}  --feji1--*-.-  'fa-. 
\ 

\ 


0L'Rr-,T  I CN  T  T  Me  Of  LCf.0  -  Q  C  ? 

W10TH,  01  ..CfiO  -  0  •  0 

•_«  7~'  ~  /i?  ■> :  " :  i  'S~ 

T  t«E  RC5 


i?  7TT 


Figur*  42 


DORGMCN  TIME  Of  LOGO  _  O.QS 

WIOTH  Of  LOGO  r  0-G4 
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Figure  49 
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SPFtn  OF  T RPi V r l  LINO  LORD  '1.00 
HICTH  OF  wCfiO  =  0.04 


